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Prólogo 


El ordenador ya no es una herramienta reservada a los especialistas. 
Un gran número de investigadores, de funcionarios y de estudiantes sa- 
ben cómo funciona un ordenador y lo que éste puede o no hacer. Estos 
últimos años han aparecido varios libros de introducción a la Informáti- 
ca, en los que se explica de forma sencilla la construcción y el funciona- 
miento de un ordenador. 


Los ejecutivos que trabajan en las universidades, ministerios o empre- 
sas de un cierto tamaño tienen hoy la posibilidad de acceder a un orde- 
nador. Sin embargo, son raros los que usan personalmente un ordenador 
como herramienta que les permite mejorar sus decisiones. Cuando un 
estudio es demasiado largo y complejo para ser realizado manualmente, 
entonces se encarga a un especialista o sencillamente se ignora. A menú- 
do este estudio puede resolverse muy simplemente empleando un orde- 
nador y no es interesante para un especialista que prefiere los problemas 
más complejos y que, de todas formas, está desbordado de trabajo. 
También con frecuencia, el estudio mencionado, al mejorar la calidad 
de una decisión, se traduciría en costes de proceso reducidos y en bene- 
ficios netos para la empresa (sin tener en cuenta que el ordenador a me- 
nudo está infrautilizado y que los costes marginales son despreciables). 


¿Por qué los ejecutivos que tienen acceso a un ordenador y conocen 
sus posibilidades no los emplean más para mejorar la eficacia de la em- 
presa? A mi parecer, la dificultad principal es la siguiente: para resolver 
un problema con ordenador, es necesario escribir un programa que indi- 
que a la máquina los diferentes pasos que debe seguir para obtener los 
resultados deseados; dicho programa debe escribirse en un lenguaje 
como el FORTRAN, COBOL, PL/I que es relativamente difícil de apren- 
der, y por esto está reservado a los especialistas. 


El BASIC es un lenguaje de programación relativamente nuevo que 
ha tenido un gran éxito entre los usuarios no especialistas en informáti- 
ca; se desarrolló en el Dartmouth College, por los profesores Kemeny y 
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Kurtz, adoptado luego por General Electric y también por la mayor 
parte de los servicios de tiempo compartido. ¿A qué es debido este éxi- 
to rápido? Es posible escribir programas sencillos en BASIC con sólo 7 
instrucciones (es decir 7 “palabras” del lenguaje). El BASIC es pues 
muy fácil de aprender: es necesario emplear de cinco a diez horas para 
aprender el lenguaje y hacer los ejercicios convenientes para adquirir 
práctica. Por este mismo motivo, es también muy fácil de usar y es el 
lenguaje ideal para realizar programas de tamaño y complejidad medios. 
El BASIC puede usarse con o sin tiempo compartido, aunque es espe- 
cialmente adecuado para la conversación entre el usuario y la máquina, 
es decir principalmente en tiempo compartido. 


El BASIC se dirige pues especialmente: 


1. A los profesionales. El estudio de un lenguaje de programación re- 
presenta una inversión en tiempo que no es válida más que con la 
condición de que este lenguaje se use suficientemente. El estudio 
del BASIC es tan fácil que se justifica sólo con la escritura de algu- 
nos programas de tamaño medio. 


2. A los estudiantes. Cada vez se les pide más a los estudiantes que 
conozcan y usen un lenguaje de programación. Como el BASIC es 
tan potente como la mayor parte de los demás lenguajes y es mu- 
cho más simple, se le va escogiendo en un número creciente de 
Escuelas y Universidades 


3.A los futuros especialistas. El primer lenguaje de programación es 
el más difícil de aprender. El BASIC permite familiarizarse con el 
ordenador antes de emprender el estudio de lenguajes más comple- 
jos. 


Este libro está destinado a los que desean escribir sus propios progra- 
mas, así como a todos los que desean conocer cómo es posible dar ins- 
trucciones a un ordenador. 


Este texto consta de cuatro partes: 


I. Una introducción a la programación 


Esta parte presenta el principio de funcionamiento de un tipo senci- 
llo de ordenador así como un enfoque general a la resolución de pro- 
blemas con ordenador. El lector que ya tenga algunos conocimientos 
de informática puede ignorar esta parte y comenzar directamente la lec- 
tura del capítulo Il. 
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II. La definición del lenguaje BASIC 


Se describen las instrucciones del lenguaje y su uso. La lectura de los 
capítulos “Introducción al BASIC” y “BASIC elemental” basta para es- 
cribir programas sencillos. Los capítulos siguientes permiten escribir 
programas más complejos. 


Ill. Cómo realizar un programa en BASIC 


Aquí se explica cómo, cuando el usuario ha escrito un programa, 
puede darlo al ordenador, corregirlo y ejecutarlo. 


IV. Programas útiles 


Esta parte presenta problemas diversos y los programas BASIC que 
permiten resolverlos con ordenador. 


Como final se presenta un primer apéndice con una extensión del 
BASIC. Las nuevas instrucciones que contiene no forman parte del 
BASIC original desarrollado en el Dartmouth College, pero están dispo- 
nibles en la mayor parte de los sistemas actuales. Estas nuevas instruc- 
cciones hacen al lenguaje todavía más potente, aunque perdiendo su 
sencillez. Por esto se aconseja a los que quieran ir más lejos con el BASIC 
que lean este apéndice solamente después de haber adquirido práctica 
con el BASIC original. 


CAPITULO I 


Introducción a la programación 


I. EL ORDENADOR 


El fin de este capítulo es exponer los conceptos básicos que permiten 
al usuario de un ordenador, conocer mejor las posibilidades y los límites 
de su herramienta de trabajo. Se presenta un modelo sencillo de ordena- 
dor y un ejemplo ilustrado de su funcionamiento. A partir de este mo- 
delo simple, se presentan las posibilidades de sistemas más complejos. 


1. ESTRUCTURA DE UN ORDENADOR SIMPLE 


Un sistema de ordenador se compone de dos partes fundamentalmen- 
te diferentes: 


a) El equipo material, llamado hardware 


b) Un conjunto de programas que permiten el uso de este equipo y 
que se llama software. 


El hardware está formado de los cinco elementos siguientes: 


1. El órgano de entrada, por el que el usuario da las informaciones al 
ordenador. Los más empleados son las lectoras de fichas, las lecto- 
ras de cinta perforada y los teletipos. 


2. La memoria, en la que el ordenador almacena las informaciones. 


3. El órgano de salida, por el que el ordenador da los resultados. La 
impresora y el teletipo son órganos de salida. 
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4. Un órgano de cálculo, que permite hacer operaciones sobre los 
datos almacenados en la memoria. 


5. Un órgano de control, que controla a los otros órganos del or- 
denador. 


UNIDAD CENTRAL DE PROCESO 


Entrada 


Fig. 1.— (Las líneas de trazo lleno indican transferencias de datos. Las líneas de trazo discon- 
tinuo representan señales de control.) 


Al conjunto de Memoria — Organo de cálculo — Organo de control, 
se le llama Unidad Central de Proceso. 


Con el siguiente ejemplo se comprenderá mejor el funcionamiento de 
las diferentes partes mencionadas. 


2. FUNCIONAMIENTO DE UN ORDENADOR SENCILLO 


Primeramente, vamos a tratar de clasificar el ordenador en la jerar- 
quía de las máquinas. Consideremos un aparato sencillo: un tocadiscos. 
Para hacerlo funcionar, el usuario lo debe poner en marcha, colocar un 
disco y poner la aguja sobre el disco; cuando el disco se ha terminado, 
se debe colocar el brazo del pickup en la posición “Reposo” y retirar el 
disco. Este ciclo se debe repetir para cada disco que se quiera escuchar. 
Si se dispone de un tocadiscos automático bastará colocar una pila de 
discos en el eje central y apretar el botón “Marcha”. Esto es posible so- 
lamente, porque el aparato automático posee un programa al que obe- 
dece continuamente. Un programa es una serie de instrucciones elemen- 
tales que la máquina debe ejecutar; el del tocadiscos mencionado puede 
ser el siguiente: 
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. Esperar a que se apriete el botón “Marcha” 

. Dejar caer un disco. 

. Desplazar el brazo para colocar la aguja al comienzo del disco. 
. Esperar a que se termine el disco. 

. Poner el brazo en la posición “Reposo” 


Dana Bu nn 


. Si queda algún disco en el eje central, ir al paso 2. En otro caso, ir 
al paso 7. 


7. STOP. 


Este programa es fijo y se realiza mediante un sistema de relés elec- 
tromecánicos contenidos en el tocadiscos. 


El ordenador es también una máquina automática. Después de que el 
usuario apriete el botón “MARCHA”, puede funcionar sin ayuda huma- 
na y se detiene después de haber dado los resultados. Pero es más que 
esto: las acciones que toma no están fijadas por un programa interno y 
rígido, sino por un programa realizado por el usuario para sus propias 
necesidades. Un ordenador es una máquina automática programable. 


No basta pues apretar el botón “MARCHA” para hacer funcionar un 
ordenador. Es necesario también darle un programa indicándole qué ac- 
ciones deberá realizar. Este programa debe escribirse en un lenguaje es- 
pecial, siguiendo unas reglas precisas como el ejemplo siguiente, que no 
es comprensible al lector no iniciado: 


100 LEER A,B 
HACER D=A +B 
ESCRIBIR D 
IRA 100 
FIN 


¡O ISS NS) 


Cada línea se llama una instrucción y corresponde a una orden dada 
por el usuario al ordenador. El proceso de este programa por la máqui- 
na se hace en dos fases distintas: 


1. La entrada y traducción del programa a un lenguaje inteligible por 
la máquina (formado por “0” y **1””) y llamado pues “lenguaje má- 
quina”. Cuando las instrucciones están escritas en un lenguaje evo- 


13 


INTRODUCCION A LA PROGRAMACION 


lucionado (BASIC, FORTRAN, COBOL ...), esta fase se llama com- 
pilación. 

2. Los cálculos propiamente dichos, siguiendo las órdenes dadas por 
el programador. Esta fase se llama ejecución. 


Antes de ver con más detalle estas dos fases, debemos precisar algo 
sobre los órganos de la unidad central del proceso. 


LA MEMORIA: Puede considerarse como una serie de celdas nume- 
radas de O a 12 en nuestro modelo (ver Fig. 2). Cada celda puede con- 
tener una cantidad de información tal como: una instrucción elemental 
(en lenguaje máquina), o bien, un dato numérico. 


LA UNIDAD DE CONTROL: Tiene los dos registros siguientes: 


— El registro C (o “contador”) que contiene el número de la siguien- 
te instrucción a ejecutar. 
UNIDAD CENTRAL DE PROCESO 


li 
Entrada sis 


Memoria 


tr Control 


100 LEER A,B 


HACERD=A+B 
ESCRIBIR D 
¡RA 100 

FIN 


Cálculo 


a e da: 


Fig. 2.— (Las líneas de trazo lleno indican transferencias de datos. Las líneas de trazo discon- 
tinuo representan señales de control.) 
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— El registro DEC (*““decodificador””) que contiene la instrucción a 
decodificar. Decodificar significa analizar una instrucción para ge- 
nerar las señales que permiten ejecutarla. 


LA UNIDAD DE CALCULO: Posee un registro ACC, el acumulador 
en el que se hacen las diferentes operaciones entre las variables. 


Veamos ahora como el ordenador procesa nuestro programa. La figu- 
ra 2 representa la figura 1 con más detalle, empleando las precisiones 
recién mencionadas. Inicialmente la memoria está vacía, es decir, que 
cada celda tiene ceros. El programa se halla en el órgano de entrada por 
ejemplo en forma de fichas. El proceso comienza cuando el usuario 
aprieta el botón “MARCHA” que está en el tablero de mando del orde- 
nador. 


a) Compilación 
Durante la compilación, el ordenador hará principalmente tres cosas: 
1. Traducción de las instrucciones del lenguaje evolucionado al len- 
guaje máquina. Este lenguaje máquina se escribe con ayuda de O y 
1 y cada instrucción es mucho más primitiva que en un lenguaje 
evolucionado. Una instrucción como la 


HACER D = A+B 


necesitará por ejemplo las siguientes instrucciones de lenguaje 


máquina: 
TOMAR A 
SUMAR B 
ALMACENAR D 


cuyo significado veremos más adelante. 


Estas instrucciones se escriben en binario en la memoria (con ayu- 
da de los únicos caracteres O y 1). Aquí las escribimos en “claro” o 
en forma mnemotécnica, para facilitar la comprensión del proceso. 


2. Detección de las variables y reserva de lugar para las mismas. Du- 
rante la compilación, el ordenador hace una lista de las variables 
usadas en el programa y a cada una de ellas le asigna una celda de 
memoria. Cuando la variable A por ejemplo es igual a 5, la celda 
correspondiente a A contendrá el valor $. 
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Unidad central de proceso 


Entrada Salida 


Memoria 


BESOS DOITOIIOOS 


Cálculo 


AAA A A EN 


Fig. 3 


3. Detección de las etiquetas. El número 100 en la instrucción 100 
LEER A, B es una “etiqueta”. Es necesario que el ordenador sepa 
a qué celda corresponde esta etiqueta después de la compilación, 
como se verá a continuación. 


Al final de la compilación se han realizado estas tres tareas y el pro- 
grama queda en la memoria, traducido a lenguaje máquina (ver Fig. 3). 
El programa está formado ahora por 8 instrucciones en lenguaje máqui- 
na (en vez de las 5 en lenguaje evolucionado). Se reservan tres celdas 
para contener los valores de las variables A, B y D. 


La etiqueta 100 corresponde a la celda 0, la lista de datos 2,4,3,5 
ha quedado en el órgano de entrada, dispuesta para ser leída. 
b) Ejecución 


Cuando el ordenador ha leído y traducido la instrucción FIN a len- 
guaje binario, sabe que ha entrado todo el programa, con lo que la com- 
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pilación ha terminado por completo. El valor O está en el contador C. 
Comienza la ejecución y el órgano de control va a seguir continuamente 
el ciclo siguiente: 


1 


3, 
4, 


q 


. Mirar el contenido del registro C. 
La 


Poner en el registro DEC la instrucción que se halla en la celda, 
cuyo número es el contenido de C. 


Aumentar el contenido de C en 1. 


Decodificar la instrucción contenida en el registro DEC y generar 
las señales necesarias para ejecutarla. 


Recomenzar este ciclo en el paso 1. 


Esto va a suceder de la forma siguiente: 


l. 


hu. — 


El ordenador mira en el registro C cuál es el número de la celda 
que contiene la instrucción a ejecutar. Este número se llama la di- 
rección de la instrucción a ejecutar e inicialmente vale O (Fig. 4a). 


, El contenido de la celda O, LEER A, se coloca en el registro DEC 


(Fig. 4b). 


. Se añade laC:C=0+ 1=1(Fig. 4c). 
. Se decodifica LEER A. Se manda una señal por la unidad de con- 


trol al órgano de entrada para leer el primer dato de la lista y po- 
nerlo en la celda A. Ahora A vale 2 y el primer dato de la lista es 
4 (Fig. 4d). 


. El ordenador busca cuál es la dirección de la siguiente instrucción 


a ejecutar, para lo que mira el contenido del registro C: 1. 


. El contenido de la celda 1, LEER B se coloca en el registro DEC. 
.C=1+1=2 
. Se decodifica LEER B. Como se ha visto antes, el valor 4 se pone 


en la celda B. 


. C contiene el valor 2. 

. TOMAR A se coloca en el registro DEC. 

¿.C=2+1=3 

. Se decodifica TOMAR A. Se envían señales para ejecutar esta ins- 


trucción, que quiere decir “poner el valor de A en el acumulador 
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ACC del órgano de cálculo”. ACC tiene ahora el valor 2. El conte- 
nido de la celda A queda inalterado. 


. C contiene el valor 3. 
. SUMAR B se coloca en el registro DEC. 
.C=3+1=4, 


. Se decodifica SUMAR B: “Sumar el valor de B al valor contenido 
en el ACC y dejar el resultado en ACC”. ACC tiene ahora el valor 
2 + 4=6. El contenido de la celda B queda inalterado. 


Bb un 


Organo Organo Organo Organo 
de entrada Memoria de control de cálculo de salida 
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. C contiene el valor 4. 
. ALMACENAR D se coloca en el registro DEC. 
¿CC =441=8$S, 


. Se decodifica ALMACENAR D: “Poner en la celda D un valor 
igual al contenido en ACC”. D ahora tiene el valor 6. 


Bb UU hn — 


. C contiene el valor 5. 
. ESCRIBIR D se coloca en el registro DEC. 
.C=5+1=6. 


. Se decodifica ESCRIBIR D. La unidad de control manda una señal 
al Órgano de salida para escribir el valor de D en el teletipo. El va- 
lor 6 se imprime. El contenido de la celda D queda inalterado. 


hh uwD — 


. C contiene el valor 6. 

. IRA 100 se coloca en el registro DEC. 

.C=6+1=7. 

. Se decodifica IR A 100. Esta instrucción quiere decir: “la próxima 
instrucción a ejecutar es la que lleva la etiqueta 100”. La ejecución 


de esta instrucción hace colocar la dirección correspondiente a la 
etiqueta 100 en el registro C. C valdrá ahora 0. 


bh un — 


La próxima instrucción ejecutada será pues LEER A. A toma el valor 
3. B toma el valor 5. Se calcula D y el valor 3 + 5 = 8 se imprime en el 
teletipo. 


La instrucción LEER A se debe ejecutar de nuevo, pero la lista de da- 
tos está vacía ahora. ¿Qué pasará? El ordenador no teniendo nada más 
que calcular, se para sencillamente. 


La hoja de resultados contiene los dos números pedidos: 6, 8. Los di- 
versos registros contienen los últimos valores que tomaron (ver Fig. 5). 


Este ejemplo nos ha mostrado que no hay nada mágico en un ordena- 
dor, sino solamente un conjunto de celdas y de registros entre los que 
circulan informaciones. Un ordenador es una máquina y no toma ningu- 
na iniciativa: obedece escrupulosamente las órdenes que le da el usuario 
en forma de programa. Todo error en la especificación de estas Órde- 
nes provocará una imposibilidad de funcionar o bien unos resultados 
erróneos. 


Aunque muy simplificado, el modelo de ordenador presentado en es- 
tas páginas facilita la comprensión y asimilación del lenguaje de progra- 
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mación. También es adecuado para referirse a él cuando se esté corri- 
giendo un programa para comprender mejor la respuesta del ordenador 
a las instrucciones que se le han dado. 


UNIDAD CENTRAL DE PROCESU 


Entrada Salida 


Memoria 


AAA 


Fig. 5 


3. TIEMPO COMPARTIDO (“TIME SHARING”) 
Consideremos un centro de cálculo sencillo que comprenda: 


— una unidad central de proceso, 

— una lectora de fichas como órgano de entrada, 

— una impresora, como órgano de salida, 

— una perforadora que permita escribir programas y datos en la for- 
ma de fichas para su entrada al ordenador. 


Cuando una persona quiere utilizar este centro de cálculo, le basta es- 
cribir su programa en forma de fichas, gracias a la perforadora, poner su 
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paquete de fichas en la lectora y apretar el botón “MARCHA”. Los re- 
sultados o los mensajes de error salen en la impresora. 


Una de las limitaciones esenciales de este sistema es la infrautilización 
de la Unidad Central de Proceso. En efecto, el ordenador comprende 
dos partes de naturaleza muy distinta: 


1. La Unidad Central de Proceso. Es la unidad más cara del conjunto. 
Está formada por circuitos electrónicos muy rápidos. 


2. Los órganos de Entrada y de Salida que poseen elementos mecáni- 
cos, por lo que su velocidad es muy limitada. 


El tiempo necesario para leer un dato desde la lectora de fichas es del 
orden de 0,05 segundos. La Unidad Central de Proceso puede por el 
contrario ejecutar ciertas instrucciones (por ejemplo la adición de dos 
números) en menos de 0,000001 segundos. Es decir, que el ordenador 
podría realizar 50.000 sumas mientras lee un dato. Veamos de nuevo 
una iteración del programa anterior: 


LEER A 
HACER D=A+B 
ESCRIBIR D 


La ejecución de estas tres instrucciones durará aproximadamente: 


— 0,05 segundos para leer A y B (utilizando el órgano de entrada), 


— 0,000003 segundos para la decodificación de las tres instrucciones 
y ejecución de la suma (utilizando la unidad central de proceso). 


Estas cifras no son más que estimaciones groseras que dependen en 
particular de las características tecnológicas de la máquina y de su orga- 
nización interna. Sin embargo, dan un orden de mangnitud de la utiliza- 
ción de la unidad central durante la ejecución de este programa: ¡0,05 
por ciento! 


La multiprogramación se ha desarrollado para remediar esta infrauti- 
lización de la unidad central. Con esta nueva técnica, se puede partir la 
memoria entre varios programas. El ordenador ejecuta uno de ellos 
hasta que encuentra una orden de lectura o escritura. Entonces manda 
las señales de control al órgano de entrada o de salida y mientras que los 
datos se leen o se escriben los resultados por un programa, se ejecuta 
otro programa. De esta manera la unidad central se usa casi continua- 
mente, y el número de programas ejecutados en un tiempo dado es mu- 
cho mayor. 
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La multiprogramación es posible gracias a los desarrollos de hardware 
y software, demasiado complejos para verlos aquí. Sin embargo, se pue- 
de mencionar que un programa especial llamado sistema operativo es 
imprescindible para la gestión de la memoria y de los órganos de entra- 
da y de salida. 


El tiempo compartido es una extensión lógica de la multiprograma- 
ción: varias personas pueden tener acceso simultáneamente al mismo or- 
denador. Para ello les basta poseer un órgano de entrada o de salida co- 
nectado al ordenador con una línea telefónica. El órgano de entrada/sa- 
lida se llama en este caso un terminal y el más común es el teletipo, que 
tiene el aspecto de una máquina de escribir eléctrica y permite entrar 
con un teclado información en el ordenador y también recibir mensajes 
del mismo sobre una hoja de papel. 


Cada usuario tiene la impresión de que el ordenador trabaja sólo para 
él. Se puede establecer un diálogo entre el ordenador y el usuario sin 
que la duración elevada de las lecturas y escrituras suponga un mal uso 
del tiempo de la unidad central, ya que ésta trabaja para varios usuarios. 
Un programa que permite este diálogo se le llama “conversacional”. 


El BASIC se desarrolló para los sistemas de tiempo compartido y en 
ellos es donde alcanzó su mayor éxito. Sin embargo, también se usa en 
las instalaciones más tradicionales que no tienen sistemas de tiempo 
compartido. 


EJERCICIOS 


1. ¿Qué quieren decir los siguientes términos? 


— hardware 

— software 

— programa 

— compilación 

— ejecución 

— etiqueta 

— multiprogramación 
— tiempo compartido 


2. ¿Cuáles son las cinco partes de un ordenador sencillo? 


3. ¿Cuáles son los registros principales de un ordenador? 
¿Cuál es su papel? 


4. En el programa de la página 13 ¿cuál es la particularidad esencial de la instruc- 
ción IR A 100 con relación a las otras instrucciones? 
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5. ¿Qué sucedería si se hubiera omitido la instrucción FIN al compilar el programa 
de la página 13? 


100 LEER  A,B 
HACER D= A+B 
ESCRIBIR D 
IRA 100 


Un Y. mn 


6. ¿Por qué al final de la ejecución del programa de la página 13, el registro C con- 
tiene el valor 1 y no el valor 0? 


7. Reemplazar la lista de datos 2, 4, 3, 5 del programa de la página 13 por la lista 
3, 5, 2. Representar siguiendo el modelo de la figura 4 el estado de los diferentes 
órganos al final de la ejecución. 


SOLUCIONES 


1. Hardware, software: ver página 11 
Programa: ver página 12 
- Compilación, ejecución: ver página 14 
Etiqueta: ver página 16 
Multiprogramación: ver página 21 
Tiempo compartido: ver página 22 


2. Ver página 16 
3. Ver páginas 14 y 15 


4. Aunque las instrucciones de un programa se van siguiendo secuencialmente de 
arriba hacia abajo, la instrucción IR A permite romper esta secuencia. Esto impli- 
ca que en la ejecución, la instrucción IR A es la única que modifica el registro C, 
aparte de los incrementos de uno ya vistos. En el programa de la página 13, esta 
instrucción sustituye el contenido del registro C por la dirección correspondiente 
a la etiqueta 100, o sea 0. 


5. En este caso, después de compilar IR A 100, el ordenador quiere leer la siguiente 
instrucción y encuentra el carácter 2 que no es una instrucción sino un dato. El 
ordenador escribe un mensaje de error, como el “INSTRUCCION INCORREC- 
TA” y no se puede comenzar la ejecución. 


6. Veamos de nuevo el último ciclo descrito por la unidad de control: 
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1. Mirar el valor contenido en C: O (el cero lo ha puesto la ejecución de la ins- 
trucción IR A 100). 


2. El contenido de la celda 0, LEER A se pone en el registro DEC. 


3. Cse aumentaen1: C=0+1=1 


4. Se decodifica LEER A. Se manda una señal por la unidad de control al órgano 
de entrada para leer el primer dato de la lista y ponerlo en la celda A, pero la 
lista está vacía y el ordenador se para. 


El registro C contiene el valor 1 aunque la última instrucción decodificada sea la 
instrucción que se encuentra en la dirección O. La razón es que su contenido se au- 
menta en 1 antes de que se ejecute la instrucción que se halla en el registro DEC. 


7. El ordenador ha calculado la suma de los dos primeros datos 3 + 5 = 8. Ha leído 
el valor de A: 2 para la suma siguiente. Se ha decodificado la instrucción LEER 
B, el contenido de C ha aumentado en 1, pero la instrucción LEER B no se ha 
podido ejecutar por falta de datos. 


Organo Organo Organo Organo 
de entrada Memoria de control de cálculo de salida 


8] 
a 
pbpdlla8a_ ACC 
ARO 


II. RESOLUCION DE PROBLEMAS CON ORDENADOR 


La escritura de un programa, aun en un lenguaje evolucionado como 
el BASIC o el FORTRAN, puede ser a veces muy difícil. Un cierto nú- 
mero de pasos se deben seguir si se quiere escribir, utilizar y modificar 
un programa en las mejores condiciones. Aquí se expondrán dichos pa- 
sos, así como la herramienta poderosa que son los organigramas en el aná- 
lisis y la documentación. Por fin, unos conceptos generales sobre la es- 
tructura de un programa darán una visión global de las posibilidades que 
deben suministrar los lenguajes de programación. 
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1. PASOS A SEGUIR 


a) Definición del problema: 


El programador debe tener una idea exacta del problema a resolver, 
lo que no siempre es fácil, ya que muy a menudo él trabaja para otras 
personas y no tiene un conocimiento suficiente de la situación para 
comprender inmediatamente lo que se espera de él. El problema debe 
definirse por un diálogo entre los futuros usuarios y el programador. 
Con frecuencia, un analista se encarga del estudio del problema y da un 
trabajo más detallado al programador. Esto puede llegar a necesitar va- 
rios meses. Por el contrario, puede suceder que una persona tenga un 
problema sencillo para resolver ella misma, y que ella misma sea capaz 
de escribir directamente un programa. 


De una forma general, se debe definir claramente: 


— Cuáles son los resultados buscados y bajo qué forma se quiere pre- 
sentarlos. 


— A partir de qué datos se pueden obtener los resultados anteriores. 


b) Descripción matemática 


Todo resultado se debe obtener a partir de los datos gracias a unas 
transformaciones matemáticas, que a veces pueden expresarse en forma 
de fórmulas muy sencillas o por el contrario, necesitar técnicas comple- 
jas de investigación operativa. La escritura del programa no puede co- 
menzarse antes de que se hayan definido estas transformaciones. 


c) Programación 

El problema se resuelve en primer lugar en forma de organigramas, 
que son diagramas, indicando los diferentes pasos que debe seguir el or- 
denador para llegar al resultado. Su construcción se estudiará en las pá- 
ginas siguientes cuando el usuario haya podido trazar el organigrama re- 
lativo a un problema, éste se considera como teóricamente resuelto. 
Basta entonces traducir este organigrama a un lenguaje comprensible 
para el ordenador: BASIC o FORTRAN, por ejemplo. 


d) Ejecución del programa por el ordenador 


e) Corrección de los errores: 


Es muy raro que un programa sea correcto a la primera escritura: un 
cierto número de errores se pueden deslizar fácilmente en un programa. 
Pueden ser de dos tipos: 
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— Los errores de sintaxis: El programador ha escrito una instrucción 
que no es válida en el lenguaje usado, lo que puede resultar de una 
distracción, de un fallo de tecleo o simplemente de un mal conoci- 
miento del lenguaje. Este error es descubierto por el ordenador 
cuando traduce el programa a lenguaje máquina, es decir, durante 
la compilación. El compilador no comprende lo que el usuario le 
ordena hacer y ningún cálculo puede comenzarse. 


— Los errores de lógica: El ordenador ejecuta bien el programa, pero 
los resultados obtenidos son falsos. Las Órdenes dadas por el pro- 
gramador al ordenador no le permiten resolver el problema dado. 
Es un error de concepto. 


La corrección de errores ocupa un tiempo a menudo comparable al 
tiempo de escritura del programa. 


f) Documentación: 


Cuando el programa funciona correctamente, se debe hacer una 
documentación para: 


— Permitir a otras personas su uso. 
— Poder modificarlo en el futuro si fuera necesario. 


2. LOS ORGANIGRAMAS 


Los organigramas son una herramienta poderosa en programación. 
Permiten descomponer la resolución de un problema en elementos para 
facilitar la escritura de un programa; constituyen igualmente una parte 
esencial de la descripción de un programa en una documentación. 


Con un ejemplo sencillo introduciremos los principales signos usados 
para construir organigramas. Supongamos que se tenga que calcular la 
suma de los cuadrados de los veinte primeros números enteros: 


S=1x1+2x2+3x3+4x4+..+20x20 


Esta suma se puede obtener calculando 1 x 1, luego se suma a este 
resultado 2 x 2 = 4, lo que da 5; a este resultado parcial se le suma 3 x 3 
= 9, resultando 14; y así hasta llegar a calcular 20 x 20 y añadiéndolo a 
la suma de los cuadrados de los 19 primeros números enteros. 
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(1) 
(2) 
(3) Bucle 
(4) 
Escribir 
(7) 


Este procedimiento se puede representar con el organigrama superior: 


Indica el comienzo del procedimiento. 


Comienzo 


Es la inicialización del proceso. La variable A 
contiene el número que se debe elevar al cuadra- 
do, o sea l. 

La variable S contiene la suma acumulada de los 
cuadrados y vale O al comienzo. 


Calcular A se eleva al cuadrado y se adiciona a la antigua 
S=S+AxA suma acumulada S para tener el nuevo valor 
de S. 
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Esto es una prueba. Sólo se deben elevar al cua- 


si drado y sumar los 20 primeros números enteros. 
Si A es inferior a 20, S es una suma parcial y los 

cálculos deben seguir. Si por el contrario A es 

no igual o superior a 20, S es la suma final y se han 


terminado los.cálculos. 


A se incrementa en 1 para dar el valor del siguien- 
te número entero a elevar al cuadrado. 


Los tres símbolos últimos forman parte de un mismo bucle en el or- 
ganigrama. Este bucle se recorrerá veinte veces, para los valores 1, 2, 3, 
4, ..., 20 de la variable A. 


Cada vez el valor de A se elevará al cuadrado y se sumará al total acu- 
mulado de S, dando 


S=1x1+2x2+3x3+..+ 20 x 20 


El valor de S se imprime en la hoja de resultados. 


Fin Indica el fin del procedimiento. 


Este ejemplo sencillo nos ha permitido introducir los tres símbolos 
más usados en los organigramas: 


Indica un cálculo, una escritura o una lectura. 


Indica una prueba que permite escoger entre 2 
alternativas posibles. 
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AE Indica un extremo del procedimiento: comien- 
zo, final o interrupción. 


Estos símbolos se enlazan con flechas que indican la secuencia de las 
operaciones. Los detalles relativos a los mismos se escriben en el interior 
de los símbolos. 


Entre los otros símbolos empleados en los organigramas es convenien- 
te mencionar: 


Símbolo de unión entre dos puntos de un orga- 
O nigrama, por ejemplo: 


Si C es menor que 5, entonces X toma el valor —B/C. Con este símbo- 
lo se obtiene una mejor presentación de los organigramas. 


Indica un proceso o tratamiento definido en otra 


parte, por ejemplo: 


X =FACT (8) en donde el tratamiento FACT 
se ha definido anteriormente. 


Símbolo usado a veces para indicar una orden de 
lectura o escritura. 
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A menudo es preferible usar el mismo símbolo para las órdenes de 
lectura y escritura que para el proceso (es decir, el rectángulo). Así se 
hizo en el organigrama visto antes. 


3. ESTRUCTURA GENERAL DE UN PROGRAMA 


De la misma manera que las lenguas vivas como el castellano, francés, 
inglés tienen semejanzas en su estructura (nombre, verbo, adjetivo, ar- 
tículo, ...), así también los lenguajes evolucionados de programación 
poseen todos instrucciones que permiten escribir las diferentes fases de 
un programa. 


a) Declaraciones 


Con ellas se indica al ordenador que deberá reservar memoria para 
ciertas variables empleadas en el programa. 


b) Lectura 

En la mayoría de los casos, la resolución de un problema requiere la 
introducción en memoria de datos, lo que se realiza mediante órdenes 
de lectura. 


c) Proceso 

Es la parte que permite resolver el problema. Las órdenes de proceso 
son, por ejemplo: cálculos de expresiones, asignación de valores a las 
variables, las transferencias de control... 


d) Escritura 


Los resultados obtenidos en la fase de proceso se imprimen con órde- 
nes de escritura. 


e) Datos 


Los datos se pueden meter en el programa, pero otras alternativas 
(formación de ficheros, entrada por el usuario durante la ejecución) son 
preferibles con frecuencia. 


Estas diferentes fases no son en ningún caso independientes, ni si- 
quiera físicamente distintas en un programa: por ejemplo las órdenes de 
lectura o de escritura pueden encontrarse en la parte de proceso. Estas 
fases pueden asimismo tener importancias relativas muy distintas según 
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el tipo de problema: así los problemas científicos necesitan en general 
muchos procesos y pocas lecturas. Por el contrario, los problemas de 
gestión precisan pocos procesos, pero muchas lecturas y escrituras. 


El lenguaje BASIC que se presenta en las páginas siguientes da la posi- 
bilidad de construir muy fácilmente un programa que contenga estas di- 
ferentes fases con un mínimo de instrucciones. 


EJERCICIOS 


1. Indicar las seis fases necesarias para la realización de un programa. 


2. ¿Qué representan los símbolos siguientes en un organigrama? 


==> o [7 


3. Qué haría falta cambiar en el organigrama de la página 27 si se quisiera calcular: 


a) La suma de los cuadrados de los números enteros de 4a20:4x4+5x5+ 
is +20 x 20: 


b) La suma de los cuadrados de los números impares de la 20: 1x1+3x3+ 
e EE A e 


c) La suma de los cuadrados de los números pares de la 20: 2 x2+4 x 4+ 
FOXET 0 EZ0X.20; 


d) El producto de los números enteros de la20:1x2x3x4x...x 19 x 20. 


4. Trazar un organigrama que represente el cálculo de la media y de la varianza de 
una serie de N datos estadísticos. Estos datos deben ser leídos por el ordenador 
en la ejecución del programa: 


y EXi 
media X = les 
N 


NEXi? — (EXi)? 


varianza V = 
N(N — 1) 


5. ¿Cuáles son las cinco clases de información que un programa debe contener? 
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SOLUCIONES 


1. Ver las páginas 24 - 26 
2. Ver las páginas 27 - 29 


3. a) Cambiaren(2) A=1porA=4 
b) Cambiar en(5) A=A+1 porA=A+2 
c) Cambiaren(2) A=1porA=2 
en(5) A=A+1porA=A+2 
d) Cambiaren(3) S=S+AxA porS+Sx A 
Cambiaren(2) S=0porsS=1 


4. El organigrama siguiente representa una de las formas de calcular la media y la 
varianza de una serie de N datos estadísticos. 


Comienzo 


Calcular 
S1 =- Sl+X 
S2=S2+X k Xx 


_ Calcular 
X =51 


N 
V =Nx52-S1xS! 
Nx*(N_1 


S. Ver las páginas 30-31. 
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Definición del lenguaje BASIC 


El lenguaje de programación BASIC ha sido desarrollado por los pro- 
fesores John G. Kemeny y Thomas E. Kurtz en el Dartmouth College. 
Igual que el Fortran, el Algol y el Cobol, también el Basic es un lenguaje 
de alto nivel y se diferencia, sin embargo, de estos lenguajes por las dos 
importantes propiedades: 


1. Una mayor sencillez y facilidad de uso. Prácticamente con sólo 
siete instrucciones se puede escribir cualquier programa en Basic. 


2. Una mejor adaptación al diálogo hombre-máquina en el tiempo 
compartido. 


El Basic se desarrolló primero para el sistema GE 265, empleando un 
ordenador GE 235 y luego para la mayor parte de los ordenadores de 
la empresa General Eléctrica. Esta empresa ha introducido el Basic en su 
servicio de tiempo compartido y el lenguaje ha sido adoptado por un 
gran número de usuarios que rápidamente reconocieron sus méritos. Ac- 
tualmente, la mayor parte de los servicios de tiempo compartido permi- 
ten el uso del Basic. Se han desarrollado varios intérpretes (una especie 
de compiladores) para traducir programas de BASIC a FORTRAN, per- 
mitiendo de esta forma la utilización del BASIC en todo ordenador de 
tamaño medio o grande que disponga de un compilador FORTRAN., 


Gracias al desarrollo actual de los servicios de tiempo compartido y a 
su facilidad de uso, el lenguaje BASIC ha experimentado un éxito muy 
rápido, que parece increible. 
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I. INTRODUCCION AL BASIC 


Comencemos con un ejemplo muy sencillo: 


100 REM FACTURACION 
110 READ N 

120 READ P 

130 READ H 

140 READ M 

150 READ T 

160 LETC=N+*P 

170 LETC=C+Mx*H 

180 LET C =Cx(1 + T) 

190 PRINT C 

200 G9Y T9 110 

210 DATA 2,4.52,1.5,9.5,0.23456 
220 DATA 3,11,5.75,12,0.17647 
230 END 


Cada línea del programa contiene un número (el “número de línea”) 
y una instrucción. Por ejemplo: 160 LET C=N +P contiene el número 
de línea (160) y una instrucción (LET C = N « P). 


La disposición de los caracteres sobre una línea no tiene ninguna im- 
portancia, sólo su orden debe respetarse. Así: 


160 LET C =N*P 
160L E TC=N*P 
16 0 LE TC =NxÑP 


son equivalentes. 


Los números de las líneas deben ser números enteros comprendidos 
entre O y 99999, y deben ir en orden ascendente de arriba a abajo. Se 
prefiere en general dar a las líneas números no consecutivos: aquí se ha 
adoptado un intervalo regular de 10 entre cada número, lo que permite 
insertar una línea en el programa sin tener que cambiar los números si- 
quientes. El número de la primera línea es arbitrario y por supuesto 
puede ser diferente de 100, 


Este programa permite calcular el importe de una factura hecha por 
un garaje para sus reparaciones. Los elementos necesarios para el cálcu- 
lo son: 


— El precio unitario de la pieza cambiada. Se supone para simplifi- 
car que sólo hay un tipo de pieza. 


— El número de piezas cambiadas. 
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— El número de horas de trabajo. 
— El coste horario de la mano de obra. 


— La incidencia del IVA (Impuesto Valor Añadido) sobre el coste to- 
tal de las piezas y de la mano de obra. 


La primera instrucción es un comentario. Se escribe REM y después 
puede llevar cualquier comentario. El ordenador lo ignora y sirve sólo 
para recordar algo al programador o dar una explicación al usuario del 
programa. 


La instrucción siguiente permite introducir la noción de variable. En 
la primera parte del libro hemos visto que una variable podrá conside- 
rarse como es el nombre de una celda en la que el ordenador pone valo- 
res que usará enseguida en los cálculos. En cada lenguaje de programa- 
ción existen convenciones para definir una variable. En Basic, una 
variable puede definirse con una letra o bien una letra seguida de un 
dígito (0 a 9): 


A,C,Z,I, T, X3, Q 2, R9 son variables (escribimos Q para la letra O 
para diferenciarla del número 0). 


3A, X13, TQ, ZA, 4, B11 no son variables, y su empleo impedirá que 
un programa funcione. 


Por supuesto, las variables que representan magnitudes diferentes 
deben escribirse distintamente. 


En las líneas 110 a 150, las instrucciones de lectura READ N, READ 
P, READ H, READ M y READ T, permiten dar valores a las variables 
N,P,H,MyT. 


Estas variables representan: 


número de unidades cambiadas, 

precio unitario de la pieza cambiada, 

número de horas de trabajo, 

coste horario de la mano de obra, 

incidencia del IVA (Impuesto Valor Añadido). 


3 ZAUZ 
IN 


A las instrucciones READ deben siempre corresponder en un progra- 
ma por lo menos una instrucción DATA (líneas 210 y 220). DATA 
debe ir seguido de datos separados entre sí por comas. Los datos pue- 
den serenteros (p. ej.los2;3;11;12) oreales (p. ej.los 1,5;9,5;0,23456). 
En este último caso se deben escribir con un punto en vez de la coma 
decimal, siguiendo la costumbre anglosajona: 
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1.5, 9,5, 0.23456 representa una serie de números reales: 1,5; 9,5 y 
0,23456, mientras que 1, 5, 9, 5, 0, 23456 representa una serie de seis 
números enteros: 1;5;9;5:;0 y 23456. 


El conjunto de los números que aparecen después de las instrucciones 
DATA se llama una lista de datos: ella comienza en el primer número 
de la primera instrucción DATA y se termina en el último número de la 
última instrucción DATA. En nuestro programa la lista de datos es: 


24,52; 1.5;9,5;0.23436;3; 115,75; 12;0.17647 


La instrucción general READ X es equivalente a la orden siguiente 
dada al ordenador: “dar el primer valor aún no utilizado de la lista de 
datos a la variable X””. Las instrucciones 110, 120, 130, 140 y 150 da- 
rán el valor 2 a N,4.52aP,1.54H,9.5 aM y 0.23456 a T. Es pues ne- 
cesario cuando se forme la lista de datos, el colocarlos en un orden tal 
que las variables tomen los valores deseados y no otros. 


En este punto, la fase “entrada” ha terminado y ya pueden comenzar 
los cálculos, que se realizan gracias a la instrucción LET. El signo * en 
la línea 160 representa una multiplicación, ya que el signo de multipli- 
cación x que se confunde fácilmente con la letra x, no se usa en Basic. 
La instrucción LET C =N *P es equivalente a la orden siguiente: 


“Calcular el producto N * P y dar después a C el valor resultante”. 
Una instrucción LET debe ir siempre seguida de una variable, de un sig- 
no igual y de una expresión que puede contener variables, signos opera- 
tivos y constantes. La misma variable puede encontrarse a la izquierda y 
derecha del signo igual, como en la instrucción: 


170 LETC=C>+Medb 


lo que parece ridículo si se le da al signo igual el mismo sentido que en 
álgebra. Se tendría entonces: 


C= C+4MxH luego 0=MxH 


De hecho, recordando la definición que se acaba de hacer, esta ins- 
trucción quiere decir: “Calcular la expresión C + M * H luego dar a la 
variable C el valor resultante”. El valor de C calculado en 160 se emplea 
para calcular C + M * H, luego C toma un nuevo valor igual al resultado 
del cálculo. El signo igual usado en una instrucción LET puede traducir- 
se por “toma el valor de ”: LET A = BxC quiere decir “A toma el va- 
lor de B * C”. La instrucción 180 se explica de la misma forma. 
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¿Qué representan estos cálculos? 


La variable C es el precio total que deberá pagar el cliente. En 160, se 
calcula el valor de las piezas cambiadas (N * P). En 170 se le añade el 
coste de la mano de obra (M * H), y en 180 se multiplica el total ante- 
rior por 1 + T para incluir el IVA. Después de 180, C es el total a pagar 
incluyendo impuestos. La fase de cálculo ha terminado. El resultado 
debe ser comunicado por el ordenador al usuario del programa, lo que 
se realiza gracias a una instrucción de escritura: PRINT C en la línea 
190. Ella tiene como efecto el imprimir el valor final de C sobre la hoja 
de papel del teletipo. 


El usuario del programa posee pues ahora el precio total correspon- 
diente a los datos de la línea 210. 


El escribir un programa para obtener este resultado no parece muy 
útil. Este programa no será interesante más que si se repite un gran nú- 
mero de veces, lo que se realiza gracias a la línea 200 GQ TO 110 que 
equivale a decirle al ordenador “Ir a la línea 110, ejecutar la orden que 
contiene y seguir secuencialmente a partir de esta línea”. En la línea 
110 comienza la fase de entrada y el ciclo de entradas/cálculos/salidas 
se repetirá varias veces, ya que el ordenador ejecuta instrucciones que 
forman un bucle por lo que “girará sobre su eje”. De hecho este bucle 
contiene Órdenes de lectura y en cada ciclo se van a tomar valores de la 
lista de datos. Cuando haya usado todos los valores de la lista de datos 
y necesite un valor adicional, el ordenador se parará e imprimirá el men- 
saje PDUT OF DATA”, como se puede ver en la hoja de resultados. 


28.7528 
119.999 
GUT YF DATA AT 110 


El ordenador ejecuta un programa mientras se le suministre trabajo, 
es decir, datos, y no parece útil indicarle cuándo debe pararse. De he- 
cho, es más fácil y elegante el indicárselo, como veremos más adelante. 


La última línea de un programa en Basic debe siempre contener la 
instrucción END para indicarle al ordenador dónde debe pararse cuando 
esté traduciendo el programa Basic a lenguaje máquina. 


RESUMEN.-— Gracias a un programa sencillo, nos hemos encontrado 
las instrucciones necesarias para formar un ciclo elemental de entradas/ 
cálculos/salidas. 
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Estas instrucciones son: 


READ y DATA 
LET 

GUY TY 

PRINT 

END 


El programa descrito puede modificarse considerablemente para 
aumentar su eficacia y los servicios que nos puede dar. Ya veremos 
cómo en las próximas páginas. 


EJERCICIOS 


. ¿Qué variables son ilegales? ¿Por qué? 


Xx3 LX 9 
6K Y12 D 
03 DS DD 


. ¿Qué expresiones son ilegales? ¿Por qué? 


Y(D — L) 
ExC — B3 


>N 
++ 


Encontrar un error en el programa siguiente: 


100 READ A,B,C 


110 LETS =(A + B)=C 


120 PRINT S 
130 END 


¿Qué hará el ordenador al ejecutar este programa? 


. Encontrar un error en el programa siguiente: 


100 READ X,Y 

110 LET T =3x*X + Y 
120 LET T=TxC 

130 PRINT T 

140 DATA 1,2 

150 END 


an 
Xx 
O 


3L2 
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¿Se obtendrá un resultado? Si la respuesta es sí ¿qué valor de T se imprimirá? 


5. Cómo será la hoja de resultados del programa siguiente: 


100 READ A1,A2 

110 LET N =Al + A2 

120 PRINT N 

130 G9Y TO 100 

140 DATA 1,3,5,3.5,2.8,4,9.3 
150 END 


SOLUCIONES 


1. Las variables siguientes son ilegales: 


LX 

9 

ANS 

6K El nombre de una variable debe ser: 

Y12 — una letra, o 

3L2 — una letra seguida de una cifra (0 a 9) 


03 
DD 
LO 


2. Las expresiones siguientes son ilegales: 


Y (D - L) el signo * se debe escribir siempre cuando se quieren multiplicar dos 
factores. La expresión Y * (D - L) es correcta. 


“> 
*x 


A + 4 x C ya que el signo no existe en Basic. La expresión A + 4 * Ces co- 


rrecta. 


3. No hay instrucción DATA que permita ejecutar la instrucción READ de la línea 
100. El ordenador imprimirá el mensaje siguiente: 


QUT QF DATA AT 100 
y abandonará la ejecución del programa. 

4. La variable C que aparece en la línea 120 no ha sido definida. Cuando se llegue 
a la línea 120, el ordenador no sabrá qué valor de C tomar para efectuar el cál- 
culo. En este caso, dará arbitrariamente el valor O a C, con lo que T será igual 
a O y éste es el valor que se imprimirá. 

5. La hoja de resultados será: 

4 
8.5 
6.8 
QUT YVF DATA AT 100 
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II. BASIC ELEMENTAL 


El ejemplo presentado en el capítulo precedente ha permitido intro- 
ducir los elementos principales del lenguaje Basic. Este capítulo desa- 
rrolla y completa estos elementos estudiando sucesivamente las instruc- 
ciones de entrada y salida, las que permiten las transferencias de control 
y la construcción de bucles. 


1. ENTRADA 


Existen dos instrucciones que permiten la entrada de los datos: 
READ e INPUT. 


a) La instrucción READ 


Ya la hemos encontrado en nuestro ejemplo. Recordemos que permi- 
te atribuir a las variables unos valores contenidos en una lista de datos 
precedidos por la instrucción DATA. Estos datos deben estar especifica- 
dos por el usuario antes que el programa entre en memoria. 


En nuestro programa tenemos: 


110 READ N 
120 READ P 
130 READ H 
140 READ M 
150 READ T 


lo que parece indicar que se necesita una instrucción READ para cada 
dato que se quiere leer, lo que sería bastante incómodo. Afortunada- 
mente, de la misma manera que se puede formar una lista de datos des- 
pués de una instrucción DATA, se puede formar una lista de variables 
después de una instrucción READ. 


Las líneas 110 a 150 pueden pues escribirse más sencillamente en una 
sola línea: 


110 READ N,P,H,M,T 


Las instrucciones DATA pueden hallarse en cualquier sitio del pro- 
grama, antes o después de la instrucción READ correspondiente. En 
realidad sólo el orden en que estén influye en el resultado. 


Es una buena regla el agrupar los datos al final del programa, justo 
antes de la instrucción END, para tener así más claridad, poder modifi- 
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car más fácilmente los datos y disminuir los riegos de error. Por las mis- 
mas razones, se hace corresponder a menudo una instrucción DATA a 
una sola instrucción READ. Por ejemplo: 


350 
360 
370 


READ A,B 
READ L,M,N,9,P,Q 


DATA 6,14.3 
DATA 2.3.14,172.0.42.0.7.21 
END 


La línea de datos 350 corresponde a la orden de lectura 120 y la lí- 
nea de datos 360 corresponde a la orden de lectura 210. 


No hay límite al número de instrucciones DATA presentes en un pro- 


grama. 


Todos los datos empleados en los ejemplos anteriores están escritos 
en forma entera o decimal. Pero es posible usar otra notación exponen- 
cial, por ejemplo, 3:2 E 3 que se lee: 3,2 multiplicado por 10 a la poten- 
cia 3, o sea 3,2 x 10? = 3,2 x 1000 = 3200. 


De la misma forma: 


— 0.25986 


A continuación se da un ejemplo de uso de la notación exponencial: 


100 
110 
120 
130 
140 


b) La instrucción INPUT 


READ A,B,C 

LET D=10xXA+Bx*C 
PRINT D 

DATA 3.2El, 8.5, 45E2 
END 


Permite al usuario especificar el valor de los datos, pero sólo durante 
la ejecución del programa. La instrucción INPUT va seguida de una lista 
de variables, como la instrucción READ. 
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Por ejemplo: 
100 INPUT A,B,C 


Cuando el ordenador se vuelva a encontrar esta instrucción imprimirá 
un signo de interrogación para indicar al usuario que debe teclear los da- 
tos. Los datos deberán ir separados por comas. He aquí un ejemplo de 
un programa que emplea una instrucción INPUT: 


100 INPUT A,B,C 

110 LETS=A+B+C 
120 PRINT S 

130 END 


que dará lugar a la conversación siguiente entre el ordenador y el usuario. 


? (ordenador) 
34.5,2 (usuario) 
9.) (ordenador) 


Un mismo programa puede, por supuesto, contener instrucciones 
READ e instrucciones INPUT. 


EJERCICIOS 


1. ¿Qué valor se imprimirá? 


S0 DATA 5 

55 READ A,B,C 

60 DATA 2.5 

70 LETD=Bx*C-A 
80 PRINT D 

90 DATA 4 

100 END 


2. Se quiere dar a las variables X, Y, Z del programa los valores respectivos 4,3 y 8. 


100 READ X,Y 

110 INPUT Z 

120 LETL=Z-Yx*X 
130 PRINT L 

140 END 
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Encontrar qué instrucción falta. ¿Cuándo se tecleará el valor de Z en el teletipo? 


SOLUCIONES 


1. El valor impreso por el ordenador será 5. En efecto, A=S5S,B =2.5;C = 4, De 
dondeD=2.5x4-5=S. 


2. La instrucción DATA correspondiente a la instrucción de lectura de la línea 100 
falta. Se puede incluir por ejemplo antes de la instrucción END: 135 DATA 4,3. 


El usuario deberá teclear el valor 8 de Z, después de que el ordenador imprima 
un signo de interrogación. 


2. SALIDA 


En el programa FACTURACION, la instrucción PRINT se ha emplea- 
do para imprimir el valor de una variable. 


Ella permite igualmente: 


— Escribir el valor de una lista de variables. 

— Escribir el valor de una expresión. 

— Escribir comentarios. 

— Realizar la presentación deseada sobre la hoja de resultados. 


La instrucción PRINT puede, como la instrucción READ, ir seguida 
de una lista de datos, como por ejemplo: 


9O0PRINT A3,B,M,K2,Z 


Las variables impresas por la misma instrucción PRINT estarán sobre 
la misma línea de impresión. Para esto, cada línea de la hoja de resulta- 
dos está dividida en 5 zonas de un ancho de 15 caracteres cada una, y 
cada variable se imprime a partir del comienzo de una zona: 


,Zona 1 zona 2 zona 3 zona 4 zona 5 


Columnas: 


El primer carácter de A3 se imprimirá así en la columna 1, el de B en 
la columna 16, etc. Sólo se pueden imprimir pues 5 números en una 
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misma línea. ¿Qué sucederá si se tiene una lista de más de 5 variables? 
Que después de haber impreso la quinta variable, el ordenador pasa au- 
tomáticamente a la línea siguiente y continúa siguiendo la misma ley. 


La coma en 60 PRINT A, B puede considerarse como que fuera la 
orden siguiente dada al ordenador: “saltar al comienzo de la zona si- 
guiente de 15 caracteres (o al comienzo de la zona de la próxima línea, 
si ésta estuviera ya llena), y esperar la orden siguiente””. La próxima or- 
den es aquí imprimir el valor de B. La ausencia de coma después de B 
indica al ordenador que puede abandonar la línea sobre la que ha im- 
preso B y saltar a la línea siguiente. Consideremos los dos grupos de ins- 
trucciones siguientes: 


(50 PRINT A ( SO PRINT A, 
/ 60 PRINT B Y ——/60 PRINT B 


En el primer caso A y B se imprimen en dos líneas diferentes, mien- 
tras que en el segundo lo hacen en la misma línea, gracias a la coma que 
va al final de la instrucción 50. 


Se dispone de otra alternativa para agrupar más los resultados en una 
misma línea; en efecto, se puede escribir: 


90 PRINT A3;B;M;K2;Z 


En este caso, en lugar de dividirse la línea en zonas de 15 caracteres, 
cada línea se divide en zonas de 3 caracteres. El primer carácter de B se 
imprimirá así al comienzo de la primera zona de 3 caracteres entera- 
mente libre después de A3. Se tendrá por ejemplo: 


A3 B M K2 Z 
e, o SN cs ES 
4|5|e/2|3/4|2 4|/2|1j0 |1 211 4 Ole|2|3/9|1 
12 34 5 6/7 8 9|1011 12| 13 14 158/16 17 18| t9 20 21| 2223 M|25 26 27| 28 29 30|31 32 33/34 


Un punto y coma al final de una instrucción PRINT permitirá a la 
próxima instrucción PRINT el imprimir un valor sobre la misma línea 
si no está llena. 

Los números impresos con una instrucción PRINT tienen, en la ma- 
yor parte de sistemas, un máximo de 6 cifras. Así, p. ej. 24.286524 se- 
rá redondeado y escrito como 24.2865. Cuando los números son o muy 
grandes o muy pequeños, se escriben en forma exponencial. 
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El valor de una expresión puede imprimirse directamente en la hoja 
de resultados mediante una instrucción PRINT: 


75 PRINT Ax*(B+C),K 


que imprimirá el valor de la expresión A * (B + C) y el valor de la varia- 
ble K en la misma línea. En este caso, el ordenador ha calculado el valor 
de A * (B + C) sólo para imprimirlo, sin conservarlo en memoria. Si se 
quiere usar este valor otra vez, habrá que calcularlo de nuevo. Esto ex- 
plica por qué se prefiere a menudo dar a una variable el valor de la ex- 
presión antes de imprimirla, como sigue: 


70 LET D=Ax(B + C) 
75 PRINT D,K 


Hemos visto como una instrucción PRINT permite la escritura de 
resultados. Para aumentar la facilidad de uso de los mismos, es necesa- 
rio tener la posibilidad de indicar su significado en claro al usuario; lo 
que se realiza igualmente con la instrucción PRINT. Por ejemplo, 190 
PRINT “NETO A PAGAR TTC:”, C dará la impresión: 


NETO A PAGAR TTC: 28.7528 


Todo comentario que vaya entre comillas y después de una instruc- 
ción PRINT, el ordenador lo imprime enteramente. Antes hemos men- 
cionado que la presencia de blancos en una línea no tenía ninguna 
importancia. La única excepción es en el caso de un comentario a impri- 
mir: si se quiere un espacio en la hoja de resultados entre A y PAGAR, 
deberá figurar en el programa. Como en general es difícil de ver y de 
contar los blancos en un manuscrito, es conveniente indicarlos con un 
Lj cuando se escribe un programa: 


70 PRINT “., NUMERO u DE u PIEZAS Ll :u”, N 
Cuando se quiere escribir el valor de una variable después de un co- 
mentario, se tienen tres posibilidades; se puede imprimir: 
— Inmediatamente después del comentario, para lo que basta no se- 
parar el nombre de la variable del comentario con ningún signo de 
puntuación en la instrucción PRINT: 


SO PRINT “A =”A 
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— Al comienzo de la primera zona de tres columnas enteramente li- 
bre después del comentario, introduciendo un punto y coma entre 
la comilla y el nombre de la variable: 


SO PRINT “A =”;A 


— Al comienzo de la primera zona de 15 columnas enteramente libre 
después del comentario, introduciendo una coma entre la comilla 
y el nombre de la variable: 


SO PRINT “A=”,A 
Las tres posibilidades se muestran en el ejemplo siguiente: 


10 READ A 

20 PRINT “A =" A 
30 PRINT “A ="; A 
40 PRINT “A =", A 
50 DATA 5 

60 END 


que imprimirá sobre la hoja de resultados: 


La instrucción PRINT permite igualmente el centrar horizontalmente 
y verticalmente los resultados o los comentarios: 


9) PRINT “oouuuD0ó;A; “nuiuuuwn0”:; B 


Si A y B son enteros inferiores a 999, esta instrucción va a colocar A 
en las columnas 7,8 y 9 y a B en las columnas 16, 17 y 18. 


La secuencia: 


90 PRINT A 
95 PRINT 
100 PRINT B 


permite imprimir A y B separados por una línea de blancos. 
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EJERCICIOS 


1, ¿Qué hace el programa siguiente? 


100 
110 
120 
130 


PRINT “ESCRIBIR LOS VALORES DE A y C” 
INPUT A,C 

PRINT A*C 

END 


2. Describir la hoja de resultados del programa siguiente: 


100 
110 
120 
130 
140 
150 


READ A 

PRINT “A ="; 

READ B 

PRINT A, "B ="; B, "A*+B =" Ax*B 
DATA 5,8 

END 


3. Se quiere mejorar el programa FACTURACION para que imprima directamente 
una factura. Hace falta otra variable C, el número del cliente. El programa es:. 


120 


280 
290 
300 
310 
320 
330 
340 


REM FACTURAS 
READ C,N,P,H,M,T 
LET R1 = Nx*P 
LET R2 = Mx*H 
LET R3 = RI + R2 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GO TO 


“ CLIENTE NQ”;C 

“PIEZAS DE RECAMBIO” 

»” ms N; EA P; ES de R1; “$7 
“MANO DE OBRA” 

«“« ás H; “HORAS A”; M; “$ ide R2; “$ E) 
“TOTAL ANTES IVA ” R3; “g> 
“IVA (INCIDENCIA”; T;”>”) a RITA 


“NETO A PAGAR TTC =RIis(14D ES” 


130 


DATA 0129,2,4.52,1.5,9.55,0.23456 


END 


¿Cuál es el formato de la factura que se obtiene con este programa? 


47 


DEFINICION DEL LENGUAJE BASIC 


SOLUCIONES 


1. La hoja de resultados de este programa es: 


ESCRIBIR LOS VALORES DE A y C (ordenador) 
? 


(ordenador) 
4,5 (usuario) 
20 (ordenador) 


Cuando se usa la instrucción INPUT, se le hace preceder en general de una ins- 
trucción PRINT indicando al usuario cuáles son los valores que debe teclear. 


2. La hoja de resultados de este programa es: 
ASS B=8 A*B=40 


3. La factura obtenida tiene la forma siguiente: 


CLIENTE NQ 129 


PIEZAS DE RECAMBIO 


2 A 4.52 9 9.04 $ 
MANO DE OBRA 

1.5 HORAS A 9.55 $ 14.325 $ 
TOTAL ANTES IVA 23.3650 $ 
IVA (INCIDENCIA .23456) 5.48049 $ 
NETO APAGAR TTC 28.8454 $ 


QUT QF DATA AT 130 


3. CALCULOS 


Se realizan con instrucciones LET que ya hemos usado para hacer 
multiplicaciones y sumas y que permite calcular cualquier clase de ex- 
presiones. 


Recordemos primeramente que el signo “=”” empleado en LET C = 
= N x P no tiene el mismo significado que en álgebra, sino que quiere 
decir “C toma el valor N x* P””. 


Esto explica en particular: 
— Que se pueda tener una instrucción del tipo LETC =C+MxH 


con C a los dos lados del signo *=”, queriendo decir “C toma co- 
mo nuevo valor su antiguo valor más el producto M * H”. 
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— Que se deba tener una sola variable a la izquierda del signo *=”., 


La resolución de X + 5= B -C no se puede escribir LET X + 5= 
= B-C que no tiene sentido en Basic, sino de la forma LET X = B -C -5. 


Como el ordenador no puede leer más que una secuencia lineal de ca- 
racteres, no puede pues comprender expresiones como la: 


— o bien X? 


que emplean varias líneas. Estas expresiones deben ser transcritas a otra 
forma empleando signos operativos distintos. Los signos son + para la 
adición, - para la sustracción, * para la multiplicación, / para la división 
y * para la elevación de potencias. 


debe pues escribirse 


100  LET X =(A + B)(C — D) 


Y =X? 
110 LET Y=X12 


Una operación debe siempre indicarse con un signo operativo. Mien- 
tras que en álgebra AB se entiende como el producto de A por B aun- 
que no esté presente el signo “x”, la instrucción LET C = AB se consi- 
dera errónea por el ordenador y se debe escribir LET C = A xB. 


Otra fuente de error en la escritura es la omisión de paréntesis, espe- 
cialmente cuando se trata de fracciones: 


La ecuación: 


CD 
ka 
K+0,5 


LET X = C*D/(K + 0.5) 


se debe escribir en BASIC 


y no así 


2d CD 
LET X = C+*D/K +0.5 que representa la ecuación —X = ra + 0.5 


En el caso que se tenga una división, el numerador y el denominador 
deben encontrarse entre paréntesis si contienen alguna suma o resta. 


Para saber dónde son necesarios los paréntesis, conviene recordar que 
el ordenador en el cálculo de una expresión procede así: 
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1. En ausencia de paréntesis, el ordenador calcula primeramente: 


e las potencias, 

e las multiplicaciones y divisiones comenzando por la izquierda 
de la expresión, 

e las adiciones y sustracciones comenzando por la izquierda de la 
expresión. 


En 10 LET X =A +E/F + B] 2 + C/D + G, 


B 1? 2 se calculará primero, después 
E/F, después 

« C/D, después 

-  (C/D) x* G, después 

* (A + E/F), después 
(A+E/F)+B12 


E 
después ((A + E/F) + B 1 2) + (C/D) x G. El resultado será pues X =A + a 


C 
FB O 


2. Cuando una expresión contiene paréntesis, el ordenador calcula 
primeramente el contenido de los paréntesis más interiores, comen- 
zando por la izquierda de la expresión y empleando las reglas recién 
mencionadas: 


En 10 LET X =(A + EN(F + Bf (2 + C)/(D «+ 6), 


2 +C se calculará primero, después 
B* (2 +0), después 
A + E, después 
: F+(B*(2+0C)), después 
* Dx6G, después 
- (A+ EJE + (B? Q +C))), después 
- ((A+E)/(E + (B? Q+C)))/(D+*G). 


El resultado será pues 


A+E 
F En paro (D X G) 


que es evidentemente muy distinta de la expresión calculada sin 
paréntesis. 


SO 
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El empleo de paréntesis, aunque no sean necesarios, permite con fre- 
cuencia hacer una expresión más comprensible al programador y evitar 
algunos errores. No se debe dudar de emplear paréntesis aunque no se 
esté seguro de su utilidad. 


Por ejemplo: 


A + B?*-5* C 
Xx ===  '(C+Y) 


puede escribirse 


LET X=(A+B?72.54x C/(B + A * C/B)x* (C + Y) 
o bien 


LET X = ((A + (B7 2.54) * CB + (A x* CB) *(C + Y) 


y también de muchas otras formas. 


Cuando el número de paréntesis en una expresión es elevado, es con- 
veniente verificar que el número de paréntesis abiertos *(”” es igual al 
de paréntesis cerrados “*)”. 


EJERCICIOS 


1. Entre las instrucciones siguientes indicar las que son incorrectas sintácticamente: 


120 LET X=A+B/X1.2 + K) 

60 LET Y =(A + CABÍA + 2.5) + X 12.5 
10 LETT+S=A+B12-C 

250 A=(A + B)*(C + DJ(K +» L + 5) 

5 LET K =(X + Y) (A + B) 

7. EET A = ke Y 

80 LET M=X1?f2+Y12+Nf-L 


2. Escribir las instrucciones LET que permitan calcular el valor de X en las ecuacio- 
nes siguientes: 


X + Y? 
a Á = , b X —M=L(A + B) 
A? x B? N 
C X -=-K = —_—_—_—_—_—_—__—_—_—_— d X=M>+--+B 
C(L + M) - K A 
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SOLUCIONES 


1. Las instrucciones siguientes son erróneas: 


línea 60: número de paréntesis abiertos *(” diferente del 
número de paréntesis cerrados *“*)”, 
” 10: más de una variable a la izquierda del signo igual, 
” 250: falta el LET Ñ 
di S: falta un signo operativo, 
” 18: se deben separar dos signos operativos 
18 LET A=-X x (-Y) es correcta, 
” 80: se deben separar dos signos operativos 
80 LET M =X?2+Y?2+N?(-L)es correcta. 


2. Las instrucciones siguientes permiten calcular el valor de X 


a) 10 LETX=A*B-Y12 
b) 10 LET X=L+*(A +B)+M 
c) 10 LETX=A72*Bf2(Cx*(L + M) - K) + K 


Ia 


d) 10 LET X = M + N/A + B 


4. LAS TRANSFERENCIAS DE CONTROL 


Las instrucciones de un programa se ejecutan sencuencialmente en el 
orden en que se han escrito. Las instrucciones que permiten romper esta 
secuencia se llaman instrucciones de transferencia de control, y son de 
dos tipos: incondicionales y condicionales. 


a) Transferencia de control incondicional 


Se realiza con la instrucción GQ TO que ya hemos encontrado antes. 
Esta instrucción debe ir seguida del número de la línea que contiene la 
próxima instrucción que el ordenador debe ejecutar. 


100 GQ TO 50 es equivalente a la orden siguiente dada al ordenador: 
““ir a la línea 50, ejecutar la orden que contiene y seguir secuencialmen- 
te a partir de esta línea”. Es una especie de vía fija que hace pasar el 
control a la línea 50 cada vez que se alcance la línea 100, de lo que se 
deriva el apelativo de incondicional. 


b) Transferencia de control condicional 


En el programa FACTURACION, se debe introducir cada vez el coste 
horario y la duración de la reparación. El coste horario es sin embargo 
fijo para cada obrero. Supongamos que se tengan sólo dos tipos de obre- 
ros. Se puede evitar el tener que indicar cada vez el coste horario del 
obrero sustituyéndolo por un código sencillo que se corresponda con él. 
Tomemos por ejemplo: 
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— Código 1 para un coste horario de 5,75 $, 
— Código 2 para un coste horario de 6,25 $. 


El cálculo del coste de la mano de obra se puede representar con el 
organigrama siguiente: 


Comienzo 


aicular e 


Error en imprimir 
los datos Mo H 


K es el código indicando la categoría del obrero. Si K = 1, se asigna a 
M el valor 5,75; pero si K = 2, el valor es 6,25. Cuando M ha sido deter- 
minado, se puede calcular el coste de la mano de obra M x* H e impri- 
mirlo. Se vuelve enseguida a leer un par de valores K y H y se rehacen 
los cálculos. El ordenador se para cuando no haya más datos. K puede 
tomar sólo los valores 1 y 2 ya que no hay más que dos categorías de 
obreros. Si se encuentra que K tiene otro valor, se ha cometido un error 
en los datos, en cuyo caso se imprime un mensaje indicando el error. 


En dos puntos del programa, el ordenador deberá probar el valor de 


K y actuar de una forma condicional según el resultado de esta prueba, 
lo que se realiza con la instrucción de transferencia condicional IF THEN. 


La instrucción 110 IF K = 1] THEN 150 es equivalente a la orden si- 
guiente dada al ordenador ““si el valor de K es 1, ira la línea 150, ejecu- 
tar la orden que contiene y seguir secuencialmente a partir de esta línea. 
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Si el valor de K es diferente de 1, seguir normalmente a la línea siguien- 
te (120)”. 


100 READ K,H 

110 IF K =1 THEN 150 
120 IF K = 2 THEN 170 
130 PRINT “ERROR EN LOS DATOS” 
140 STOP 

150 LET M =5.75 

160 GO TO 180 

170 LET M = 6.25 

180 PRINT Mx*H 

19 G9 TY 100 

200 DATA 1,3,2,5,3,3,1,2,2,4 
210 END 


Para comprender este programa, sigamos paso a paso su ejecución 
con los datos de la línea 200. El ordenador lee primeramente los valores 
de K y H que son 1 y 3. La línea 110 pasa el control a la línea 150 ya 
que K = 1. M toma el valor 5,75 correspondiente al coste horario de los 
obreros de la categoría 1. La línea 160 hace pasar el control a la línea 
180 que imprime el coste de la mano de obra M «* H. La instrucción de 
la línea 190 permite repetir el cálculo varias veces. El lector puede se- 
guir la ejecución con los pares de datos siguientes y ver cuándo se ejecu- 
tan las líneas 120 y 130. ¿Qué pasará cuando K = 3? 


En la línea 140 se introduce una nueva instrucción: STOP que es 
muy explícita: cuando la encuentra en ejecución, el ordenador abando- 
na este programa. 


En este punto se pueden resumir rápidamente las diversas formas de 
parar la ejecución de un programa: 


— La instrucción STOP, 


— La instrucción END, que sirve para indicar el fin físico del progra- 
ma (útil en la compilación) pero si el ordenador la encuentra du- 
rante la ejecución, tiene el mismo efecto que la instrucción STOP, 


— La instrucción READ en un bucle lleva al final de la ejecución por 
agotamiento de la lista de datos. 


Pero volvamos a la instrucción IF. Su formato general es IF (condi- 
ción) THEN (número de línea). Si la condición se cumple, el control 
pasa a la línea cuyo número se encuentra después del THEN. Si no, se 
ejecuta la instrucción que va inmediatamente después de la instrucción 
IF 
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La condición es una comparación de dos expresiones. En el caso más 
sencillo, uno de los elementos de la comparación es una variable y el 
otro una constante, como sucede en nuestro ejemplo. Las comparacio- 
nes posibles en Basic son: 
igual 
mayor que 
menor que 
mayor o igual que 
= menor o igual que 
> diferente a 


AAVAVAI 
Il 


Las instrucciones siguientes son correctas: 


50 IF (X72 + 4.2)> =2x* Q/((X + Y) THEN 100 
50 IF X < > 10 THEN 90 

50 IF 4<(X*Q)712 THEN 40 

S0 IF X+A = — 3.24 THEN 523 


Se puede por ejemplo emplear la instrucción IF para detener el pro- 
grama FACTURAS. Para esto, se termina la lista de datos con un núme- 
ro peculiar: - 1 por ejemplo. Cada vez que se lea un número nuevo de 
cliente C, se prueba o mira su valor. Si es - 1 se salta a la instrucción 
END, lo que acaba la ejecución. Esto se ve mejor con el organigrama 
siguiente: 


Comienzo 
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Se obtiene esto sustituyendo la instrucción 130 READ C, N, P, H, 
M, T por las instrucciones siguientes en el programa de la página 44: 


130 READ C 
134 IF C= — 1 THEN 340 
138 READ N,P,H,M,T 


Este método de parar la ejecución de un programa es el preferido 
normalmente. El mensaje “OUT OF DATA” puede indicar que real- 
mente se ha cometido un error en los datos, y que no se han puesto los 
suficientes para realizar los cálculos. Su empleo para detener la ejecu- 
ción de un programa puede siempre hacer creer en un fin normal, mien- 
tras que en realidad se ha hecho una lista de datos insuficiente. 


EJERCICIOS 


1. Se modifica el programa de la página 54 introduciendo la línea 125 y suprimien- 
do la línea 160 como sigue: 


100 READ K, H 
110 IFK=1 THEN 150 

120 IFK=2 THEN 170 

125 IF K <> 2 THEN 130 

130 PRINT “ERROR EN LOS DATOS” 
140 STOP 

150 LET M=5.75 

170 LET M=6.25 

180 PRINT Mx*H 

190 GO TO 100 

200 DATA 1,3,2,5,3,3,1,2,2,4 

210 END 


¿Para qué sirve la línea 125? Los resultados dados por este programa ¿son siem- 
pre correctos? Si no es así ¿en qué caso son incorrectos? 


2. ¿Son válidas las instrucciones siguientes? 


a) 100 IF 15=6 THEN 120 
b) 120 IF O<A <10 THEN 400 
c) (130. LET X = 180) 
140 GU TO X 
d) 150 IF X +2 = Y13 THEN 350 
e) 160 IF A>B THEN G9 TO 200 
f) 170 IF Y +1.5>6x*X THEN A=B 


BUCLES FOR 


3. Hacer un programa que lea el valor de la variable A e imprima 1 si0 <A <10 y 
2 si A es exterior a este intervalo. 


SOLUCIONES 


1. La línea 125 es inútil, ya que si se llega a ella es porque K es distinto de 2, pues 
si no se habría ido a la línea 170. Cualquiera que sea el valor de K, M siempre 
valdrá 6.25 ya que la instrucción de la línea 170 se ejecutará en ambos casos 
K =1yK=2, Los resultados no serán exactos más que para K = 2, es decir, para 
la categoría 2 de obreros. 


2. Las instrucciones siguientes son incorrectas: 


b) Sólo se puede poner una condición en una instrucción IF (y aquí hay 2: A > 
Oy A<10), 

c) GQ TO tiene que ir seguido por un número de línea (en claro y no por una 
variable), 

e) THEN no puede ir seguido más que por un número de línea (y no por una ins- 
trucción GQ TO ), 

f) THEN no puede ir seguido más que por un número de línea (y no por una 
ecuación). 


La instrucción a) es sintácticamente correcta. El control pasará siempre a la línea 
120, por lo que es más sencillo y elegante escribir 100 GQ TQ 120. 


3, El programa es: 


100 INPUT A 

110 IF A >10 THEN 150 
120 IFA<0O THEN 150 
130  PRINT ”1” 

140 STOP 

150 PRINT ”2” 

160 END 


III. BUCLES FOR 


Supongamos que se quiera escribir un programa para sumar los núme- 
ros pares de 2 a 100 (2 + 4+ 6 + 8+ ...+ 100). Un medio de realizar 
esto se indica con el organigrama siguiente: 
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Inicialización 


Bucle 


| Resultado 
Se definen dos variables: 


S (con valor inicial 0) e 1 (con valor inicial 2). La adición se hace pa- 
sando 50 veces a través del bucle. Los valores de S e I se modifican co- 
mo sigue: $=0 


Inicialización ) y — > 


S=S+I=0+2=2 


14 pasada 
P AE 


S+I=2+4 
lI=14+2=4+2=6 


3a a 


l=14+2=6+2=8 


$ =84]=09352 4098 = 2450 
=T4)>2208 42%=100 


Ln] 


494 pasada | 


S=S+1I= 2450 + 100 = 2550 


a 
si O E ae 


Después de la 50* pasada, S contiene la suma de los números pares de 
2 a 100. Esto puede realizarse con el programa siguiente: 
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100 
110 
120 
130 
140 
150 
160 
170 


BUCLES FOR 


"Y 
= 
Z 
A UT 
1 
“BG=n8uo 
++>3 
vn — 
rm 
Z 
ES 
O 


La variable I controla el bucle, denominándose índice. Las magnitu- 
des necesarias para controlar el bucle son: el valor inicial, el incremen- 
to de variación y el valor final de su índice. El valor inicial (2) se espe- 
cifica en la línea 110. La línea 140 da el incremento de variación (+ 2) 
y el valor final (100) se compara con 1 en la línea 120. 


El lenguaje BASIC permite realizar bucles de una forma más sencilla 
empleando la instrucción FQ R. El programa anterior se puede escribir 


también así: 


100 
110 
120 
130 
140 
150 


LET S=0 

FOR 1=2 T9 100 STEP 2 
LET S=S+1 

NEXT 1 

PRINT S 

END 


La instrucción FOR I = 2 TQ 100 STEP 2 es una orden dada al orde- 
nador equivalente a “ejecutar la porción de programa comprendida en- 
tre esta línea y la próxima instrucción NEXT I, de una forma sucesiva 
para valores del índice 1 creciendo de 2 a 100 con incrementos de 2” 


El bucle está ahora definido por dos líneas: 


e La línea 110 determina el valor inicial (1 = 2), el valor final (TO 100) 
y el incremento de variación (STEP 2) del índice I; 


e La línea 130 determina el fin del bucle (cuyo índice es 1). 


Observemos que: 


— Cada instrucción FOR debe ir seguida en el programa por una ins- 
trucción NEXT utilizando el mismo índice. 


— Puede haber un mínimo ilimitado de instrucciones entre un FOR 
y el NEXT correspondiente, 


— Una instrucción FOR no es necesaria para realizar un programa. 
Puede ser sustituída por otras instrucciones. 
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— Sin embargo, es más fácil construir un bucle con una instrucción 
FQR. 


De una manera general, una instrucción FOR se escribe así: 
FQR (nombre del índice) = (valor inicial) 
TO (valor final) STEP (incremento de variación) 


Cuando el ordenador encuentra esta instrucción, da al índice el valor 
inicial indicado. Luego ejecuta las instrucciones siguientes hasta el 
NEXT correspondiente. Entonces añade el incremento de variación al 
valor actual del índice, probando el nuevo valor: si excede el valor final, 
ejecuta las instrucciones que están después del NEXT; pero si no, ejecu- 
ta de nuevo las instrucciones en el interior del bucle. 


El valor inicial, el valor final y el incremento de variación pueden ser 
expresiones con valores enteros o reales positivos o negativos. Las ins- 
trucciones siguientes son válidas: 


100 FOR 1 = 4.2 TO (Xx* A)7 2 STEP B 
55 FOR A=K +B TO N STEP 10 
140 FOR Z =50 TY — 10 STEP — 5 
2432 FOR L = -— 50 TY -— 125 STEP —(A + B)7 2 


Sin embargo, conviene comprobar que estas instrucciones se pueden 
ejecutar. Si se escribe por ejemplo: 


100. FOR 1 = 50 TO 10 STEP 20 
o bien, S0 FOR I=1 TO 10 STEP - 1 


estas instrucciones no pueden ejecutarse ya que el índice de entrada ex- 
cede ya al valor final. En este caso, el ordenador salta directamente a la 
primera línea que sigue al bucle FOR NEXT. 


Cuando el incremento de variación es de 1, se puede omitir: 
100 FOR I=1 TQ 100 
que equivale a 
100 FOR I=1 TQ 100 STEP 1 


La repetición del nombre del índice después de la instrucción NEXT 
como en NEXT l es necesaria para indicar al ordenador a qué FOR se 
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refiere el NEXT. Esto es útil, pues se pueden tener en un programa va- 
rios bucles: 


1 TO 20 STEP 1 


— adyacentes como ll FOR 1 
80 NEXT 1 


120 FOR J=35 TO 0 STEP - 2 
210 NEXT J 


— anidados como [100 FOR 1 =1 TO 20 STEP 1 


150 FOR J=35 TO 0 STEP — 2 
190 NEXT J 
260 NEXT I 
No es posible tener bucles que se superpongan parcialmente como: 
100 FOR I =1 TY 20 STEP 1 
150 FOR J=35 TO 0 STEP -— 2 
190 NEXT I 
260 NEXT J 


lo que será considerado como un error por el ordenador. 


Se aconseja, para leer los programas más fácilmente, escribir el conte- 
nido de los bucles interiores desplazando hacia la derecha con relación 
al contenido de los bucles exteriores, como se ha indicado arriba. 


Uno de los papeles del índice es controlar el bucle; pero puede em- 
plearse dentro del bucle en el cálculo de una expresión o en una instruc- 
ción IF por ejemplo. Pero conviene asegurarse de que no se modifica 
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por inadvertencia el valor del índice dentro del bucle, como en el ejem- 
plo siguiente: 


100 FOR I1=1 T9 10 
110 LET K =1 

120 FOR I=1 TO 3 
130 PRINT KI, 
140 NEXT 1 

150 PRINT 

160 NEXT 1 

170 END 


Se ha escrito este programa para imprimir sobre una misma línea un 
número entero, su cuadrado y su cubo, y esto para los enteros de l a 
10, El resultado será completamente distinto del deseado, puesto que 
el índice 1 del bucle 100 a 160 se usará igualmente en el bucle 120 a 
140 y se modificará por tanto. Esto se corrige fácilmente sustituyendo 
I por otra variable en las líneas 120 a 140: 


120 FOR L =1 TO 3 
130 PRINT K71L 
140 NEXT L 


Se puede salir de un bucle antes que el índice haya alcanzado su valor 
final. Basta para ello usar una instrucción que permita una transferencia 
de control (IF 6 GQ TO). Sin embargo, es más peligroso el entrar direc- 
tamente en medio de un bucle sin pasar por la instrucción FPDR como 
en el caso siguiente: 


60 GO TO 150 


100 FOR 1=1 TO 10 STEP 2 


200 NEXT I 


En efecto, el valor de I se inicializa a 1 cuando el ordenador encuen- 
tra la instrucción FOR de la línea 100. Si se entra en el bucle por la ins- 
trucción de la línea 60, el ordenador no habrá pasado por la línea 100, 
y la I no se habrá inicializado y su valor será difícil de anticipar, lo que 
causará errores. 
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1. Indicar dos errores en la secuencia de instrucciones siguiente: 


100 LET X = 100 

110 LET Y =2 

120 FOR 1=Y TO 10 STEP 3 
130 FOR J =X T9 I 
140 LFT L=L+J 
150 NEXT 1 

160 LET K =K +L 
170 LET L = 

180 NEXT J 

190 PRINT K 

200 END 


2. ¿Qué hace el programa siguiente? 


90 LETS=0 

100 FOR I =1 TO 20 STEP 2 
110 LETS=S+I1f2 
120 NEXT 1 

130 PRINT S 

140 END 


A] 


3. Hacer un programa que permita hallar la parte entera de la raíz cuadrada de un nú- 
mero N, 


4. Escribir el programa siguiente sin la instrucción FOR: 


90 LETX=0 
100 INPUT A,B 
110 FOR 1 = A/ 
120 LET X 
130 IF X > 
140 NEXT I 

150 PRINT X 
160 END 


1/4 


5. El programa siguiente no da siempre los mismos resultados que el anterior. ¿En 
qué caso difieren los resultados de estos dos programas? 


90 LETX=0 

100. INPUT A,B 

110  LET I = A/2 

120 LET X =X + 1/4 

130 IF X >100 THEN 160 
140 LET I=I1+10 

150 IF I<=B?72 THEN 120 
160 PRINT X 

170 END 


6. ¿Qué hace el programa no corregido de la página 62? 
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1. Los bucles FPR no deben estar ahorquillados. El NEXT 1 (línea 150) debería ha- 
llarse después del NEXT J (línea 180). 


La instrucción de la línea 130 no es ejecutable: el valor inicial X (100) es supe- 
rior al valor final (1 = Y = 2) al comienzo, siendo su incremento positivo (1). 


2. El programa calcula e imprime la suma de cuadrados de los números impares de 
1lal19, 


ds 100 READ N 
110 FOR I=1 TO N 
120 IF N< 112 THEN 140 
130 NEXT 1 
140 PRINT 1-1 
150. DATA 2432 
160 END 


A 90 LETX=0 
100 INPUT AB 
110 LET I=A/2 
120 IF 1>B?2 THEN 170 
130 LET X=X + 1/4 
140 IF X >100 THEN 170 
150 LET I=1+10 
160 GO TO 120 
170 PRINT X 
180. END 


5. Los programas de las preguntas (4) y (5) dan resultados diferentes cuando A/2 es 
superior a B?. En este caso, el ordenador no ejecutará las instrucciones del bucle 
FOR y saltará directamente a la línea 150 del programa (4) para imprimir el va- 
lor de X que es siempre 0. Al contrario, en el programa (5) X se calcula antes de 
que se haga la prueba con el valor de 1. El valor de X impreso será diferente de O 
e igual a A/8. 


6. Sigamos paso a paso lo que hace el programa: 


Número de la instrucción 


ejecutada 
100 I=1 
110 K=I=1 
130 K' =1! = 1 se imprime 
140 I=I1+1=2 
130 K! = 1? se imprime en la misma línea 
140 I=I1+1=3 
130 K! = 13% se imprime en la misma línea 


140  Iesigual a 3. El control pasa a la línea 150 
150 El carro del teletipo avanza un paso 
160 I=I1+1=4 
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110 K=1=4 

120 I=1 

130 K! -= 4! = 4 se imprime 
140 I=I1+1=2 

130 Kl + 4? = 16 se imprime 
140 I=1+1=3 

130 K! =43 = 64 se imprime 


140  Tesigual a 3. El control pasa a la línea 150 
150 El carro del teletipo avanza un paso 

160 1=TI+1=4 

110 K=I1=4 


El ciclo se repite indefinidamente hasta que el usuario detenga manualmente el 
ordenador. La hoja de resultados obtenida es: 


1 1 1 

el 16 64 
4 16 64 
4 16 64 


Algunos sistemas detectarán sin embargo, el error y la ejecución del programa no 
podrá comenzar. 


IV. LISTAS Y TABLAS 


Para almacenar una magnitud en el ordenador, basta definir una va- 
riable a la que se le da un nombre. Pero a veces se tiene un cierto núme- 
ro de variables que representan magnitudes de la misma naturaleza. 
Consideremos el almacén de un taller que tenga cinco clases de piezas 
de recambio para un determinado tipo de máquina. Se pueden escoger 
las variables A, B, C, D y E para representar el precio de las piezas de 
categorías respectivas 1, 2,3, 4 y 5. Para acordarnos de que las cinco va- 
riables representan cantidades de la misma naturaleza, es preferible de- 
nominarlas P1, P2, P3, P4 y PS. 


Esta notación es una buena regla mnemotécnica; pero no aporta, sin 
embargo, ninguna simplificación en la escritura de un programa. Supon- 
gamos por ejemplo que se llamen N1, N2, N3, N4 y NS los números 
respectivos de piezas en existencia para las categorías 1, 2,3,4 y 5. Se 
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quieren calcular los valores de inventario V1, V2, V3, V4 y 


VS pa- 


ra cada categoría de piezas. El programa siguiente permite pens este 


cálculo: 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


READ Pl, P2, P3, P4, PS 
READ NI, N2, N3, N4, NS 
LET V1 = Pl * N1 

LET V2 = P2 + N2 

LET V3 = P3 «* N3 

LET V4 = P4 x N4 

LET VS = PS. NS 

DATA 1.2, 2.5, 8, 0,9, 4,75 
DATA 5,1,4,0,3 

END 


Las líneas 120 a 160 hacen el mismo cálculo para las piezas de las di- 
ferentes categorías. Si el almacén tuviera 100 clases de piezas, se debe- 
rían escribir 100 líneas para hacer estos cálculos. 


Sería evidentemente más sencillo tener un grupo de instrucciones que 


indiquen sencillamente al ordenador 


“para cada categoría de piezas, 


calcular el valor de inventario multiplicando el número de piezas por el 
precio unitario correspondiente a esta categoría”. 


Esto puede realizarse gracias a las listas, La lista de los precios se es- 
cribe: P (1), P (2), P (3), P (4), P (5). Cada elemento de una lista está 


definido por: 


— El nombre de la lista a la que pertenece: P 


— Su número de orden en la lista o índice. P (3) es el tercer elemento 
de la lista P. El índice debe ir entre paréntesis y siguiendo al nom- 
bre de la lista. Por esto se llama a veces a una lista una variable in- 


dexada. 


Las listas para el número de piezas de recambio de cada categoría y el 


valor de los diferentes inventarios se pueden definir así: 


N(1), NQ), NG), N(4), y N(5) 
V(D, VQ), VG) V(%), y VG) 


El programa anterior se puede escribir más sencillamente empleando estas listas: 


100 
110 
120 
130 
140 
150 


66 


FOR I=1 T9 S 


READ P(D, N(D) 
LET V(I) = P(1) * N(l) 


NEXT I 


DATA 1.2, 5, 2.5, 1,8,4,0.9,0,4.75, 3 


END 


LISTAS Y TABLAS 


En el interior del bucle FPR-NEXT, los elementos de la lista tienen a 
I como índice. Primeramente I toma el valor 1. La instrucción 110 lee 
los valores de P (1) y N (1) y luego la instrucción 120 calcula V (1). En- 
seguida 1 toma el valor 2. Se leen P (2) y N (2), luego se calcula V (2) y 
así sucesivamente hasta que se hayan calculado los valores de los cinco 
inventarios. Si el almacén tuviera 100 clases de piezas, bastaría cambiar 
la línea 100 por ésta: 100 FOR I= 1 TQ 100 y completar la lista de 
datos. 


La utilización de la instrucción FOR y de las listas, permite tratar 
más fácilmente un gran número de variables que representen una misma 
magnitud. Las listas aportan igualmente una flexibilidad mayor en la 
notación de las variables. En efecto, mientras que el número máximo de 
variables no indexadas es 286, no hay prácticamente ningún límite en el 
número de elementos que pertenezcan a listas (recordemos que una va- 
riable no indexada debe tener como nombre una letra o bien una letra 
seguida de una cifra. Esto da 11 posibilidades para cada letra, por ejem- 
plo A, AO, Al, A2, ..., A9. O sea un máximo de 26 x 11 = 286 varia- 
bles no indexadas). 


En nuestro ejemplo, se ha supuesto para simplificar que había cinco 
categorías de piezas. Supongamos que estas cinco categorías existen 
para cada uno de los dos tipos de máquinas usadas en el taller. Es poco 
probable que una pieza de una cierta categoría cueste lo mismo para 
cada tipo de máquina. El precio unitario de una pieza depende pues de 
dos criterios: la categoría de la pieza y el tipo de la máquina. ¿Cómo se 
pueden representar las variables precio, número de piezas y valor del 
inventario ahora que dependen de dos criterios? 


Una solución consiste en definir las listas teniendo un nombre dife- 
rente para cada tipo de máquina. Se llamará respectivamente: 


P (D y Q (1 a los precios unitarios de las piezas de los tipos 1 y 2; 
M (D y N() su número y V (1) y W (1) el valor de los inventarios, co- 
rrespondiendo l al número de la categoría. 


P (3) será así el precio unitario de una pieza de la categoría 3 para el 
tipo 1 de máquina. W (5) será el valor del inventario de las piezas de la 
categoría 5 para el tipo 2 de máquina. 


El programa que permite calcular el valor de los diferentes inventa- 
rios se escribe: 


100 FOR 1=1 TO S 

110 READ P (1), Q (D), M (1), N (D 
120 LET OP DM 

130 LET W(D=Q(M)x*N (1) 
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140 NEXT I 

150 DATA 1.2,5, 2.5, 1,8,4, 0.9,0,4.75, 3 
160 DATA 3, 4, 8.3, 0, 9.5, 2, 1.5, 4, 6, 1 
170 END 


Las líneas 120 y 130 hacen el mismo cálculo para los dos tipos de 
máquinas; si el taller tuviera 50 tipos de máquinas se deberían escribir 
50 líneas para hacer los cálculos. Sería mucho más simple tener un gru- 
po de instrucciones que indiquen sencillamente al ordenador “Para cada 
categoría de piezas y para cada tipo de máquinas, calcular el valor del 
inventario multiplicando el número de piezas por el precio unitario co- 
rrespondiente”. 


Esto puede realizarse gracias a las tablas. Una tabla de 2 líneas y 5 co- 
lumnas puede representarse como sigue: 


Número de columnas 


1 2 3 4 5 


Número 
de líneas 


Se puede por ejemplo crear una tabla de precios P. Cada elemento 
P (I, J) de esta tabla está definido por: 


— El nombre de la tabla a la que pertenece P, 
— Su número de línea 1 que corresponde aquí al tipo de máquina, 


— Su número de columna J que corresponde aquí a la categoría de 
la pieza. 


P (2,4) es el elemento de la tabla de precios situado en la segunda lí- 
nea y en la cuarta columna. Representa el precio de una pieza de la 
categoría 4 para el tipo 2 de máquina. 


Se define de la misma forma una tabla para los números de pieza en 
cada inventario N (I, J) y una tabla para los valores de cada inventario 
V (1, J). 

El programa de la página anterior puede escribirse ahora: 
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100 FOR I1=1 TO 2 


110 FOR J=1 T9 S 

120 READ P (1,9), N (LJ) 

130 LET V (1,3) =P (1,J)*N (1,3) 
140 NEXT J 

150 NEXT I 


160 DATA 1.2, $, 
170 DATA 3, 4, 8. 
18 END 


El bucle FDR-NEXT exterior lleva el índice 1 representando el tipo 
de máquina. El bucle interior lleva el índice J representando la catego- 
ría de las piezas. Al comienzo l vale 1. J va variando de 1 a 5 y se calcu- 
lan los valores de los inventarios V (1,1), V (1,2), V (1,3), V (1,4) y V 
(1,5) correspondientes a las 5 categorías de piezas para la máquina 1 en 
la línea 130, Luego I toma el valor 2 y ahora se calcularán V (2,1), V 
(2,2), V (2,3), V (0,4) y V (Q,5). Para tener enseguida por ejemplo el 
valor del inventario de piezas de la categoría 4 para el tipo 2 de máqui- 
nas, bastará consultar el valor de V (2,4). 


La parte cálculo de este programa contiene 6 instrucciones. El pro- 
grama precedente tenía sólo 5. ¿Por qué complicar la cosa para escribir 
un programa más largo? De hecho, sería raro que el número de los tipos 
de máquinas en el taller fuera solamente igual a 2. Si son 50, basta cam- 
biar la línea 100 para escribir 100 FOR 1I=1 TQ 50. 


El número de instrucciones es siempre igual a 6, mientras que en el 
programa anterior se habrían necesitado 50 instrucciones LET teniendo 
la misma estructura que la de la línea 120. El número total de instruc- 
ciones sería de 53. 


Los programas anteriores son sólo ejemplos de las nuevas posibilida- 
des que ofrece la utilización de las listas y tablas. Para poder aprovechar 
plenamente los servicios que pueden rendir, es necesario precisar su 
empleo: 


Las listas y tablas deben representarse con sólo una letra. 
N (3), X (3,2), X (3,3), A (8,103) son correctos. 
N1 (3), XA (3,2), A7 (8,103) no son aceptables en BASIC. 


Para cada lista y tabla, se reservan automáticamente sus “celdas” en 
memoria para que los índices puedan variar hasta 10. Si ciertos índices 
toman valores superiores a 10, las listas y tablas correspondientes deben 
ser “declaradas”. Es decir, que en alguna parte del programa se deben 
indicar las dimensiones máximas de estas listas y tablas para que el orde- 
nador pueda reservarlas sitio en la memoria. Esto se realiza gracias a una 
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instrucción DIM (de DIMENSION) seguida del nombre de la lista o de 
la tabla con los valores máximos de sus índices. Por ejemplo, si la tabla 
A tiene un máximo de 30 líneas y 50 columnas en un programa, bastará 
declararla así: 


130 DIM A (30,50) (1) 


Estas instrucciones pueden encontrarse en cualquier parte del progra- 
ma, pero antes que se usen las tablas y listas correspondientes. Sin em- 
bargo, para evitar errores se aconseja agruparlas al principio del progra- 
PE Una sola instrucción DIM puede servir para declarar varias listas y 
tablas: 


100 DIM A (100) 
110 DIM K (35,72) 
120 DIM H (54) 


puede escribirse 100 DIM A (100), K (35,72), H (54). 


El mayor valor permitido para un, índice es 1022. Los índices en una 
declaración DIM deben ser explícitos, es decir que deben ser representa- 
dos sólo con números y no con variables o expresiones. 


100 DIM A (100) es correcto 
100 DIM A (N) y 100 DIM B (K * J +1) nolo son 


Fuera de las instrucciones DIM, las listas y tablas pueden tener expre- 
siones como índices: 


120 LET A ((1 + 3)* N/K) = B (M/4) + 10.5 
130 IF A (1/2 + N*5, X 10.5) = 2 THEN 200 


son sintácticamente correctas en BASIC. El ordenador calcula el valor 
de las expresiones y las redondea al entero más cercano para determinar 
el valor del índice. En ciertos sistemas, por el contrario se toma el ma- 
yor entero inferior al valor de la expresión considerada. 


Las listas y tablas pueden emplearse en cualquier parte del programa, 
lo mismo que las variables no indexadas. La sola excepción es la instruc- 
ción FOR. El índice usado en una instrucción FOR no puede ser más 
que una variable no indexada. 


100 FOR I=A*K TY (X70.5)* L STEP Lx2 


(1) En el sistema BASIC desarrollado en el Dartmouth College, esta instrucción habría reservado 
lugar para una tabla de 31 líneas y 51 columnas, ya que se autoriza el índice 0. La mayor 
parte de los sistemas actuales no permiten utilizar índices inferiores a 1. 
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es correcta, pero no lo es: 


100 FOR A (I)=Ax*K TO (X70.5)* L STEP Lx 2 


EJERCICIOS 


1. Encontrar por lo menos cuatro faltas de sintaxis en el programa siguiente: 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


INPUT N 
DIM A (N) 
FOR I=1 TO N 
INPUT A (1) 
NEXT 1 
FOR B (4) =1 TO N 
LET C (1) = A(D) + B (4) 
PRINT C (1) 
NEXT 1 
DIM B (30), C (30) 
END 


2. ¿Qué hace el programa siguiente? 


100 
110 
120 
130 
140 
150 


DIM A (30) 
FOR 1 =1T9 30 
LET A () =1 
NEXT 1 
PRINT A (4.2), A (3.8), A (30), A (30.4) 
END 


3, ¿Qué hace el programa siguiente? 


50 FOR I=1 T9 10 

60 FOR J=1 T9.10 
70 LET X (LJ) =J 
80 NEXT J 

90 NEXT I 

100 FOR J =1 TO 10 

110 PRINT X (J,4) 
120 NEXT J 

130 END 


. Hacer un programa que imprima y guarde en memoria los cuadrados y cubos de 


los 50 primeros números enteros. 


SOLUCIONES 


1. Las instrucciones siguientes son sintácticamente falsas: 
— 110 DIM A (N) los índices deben ser explícitos en una declaración DIM, 


— 1SOFOR B(4)=1 TQ N el índice en un bucle FOR no puede ser más que 
una variable no indexada, 
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— 180 NEXT l el índice que sigue a NEXT no se corresponde con el índice del 
FOR, 
— 190 DIM B (30), C (30) las listas y tablas deben declararse antes de emplearse: 


2. Este programa coloca los 30 primeros números enteros en la lista A: 
ACES A ACI. AG)ISI:< ¿A(0=30 
Los valores impresos son pues: 
4, 4, 30, 30 


3. La tabla X tiene 10 líneas y 10 columnas, por lo que no se ha declarado. Cada 
elemento de esta tabla es igual al número de la columna a que pertenece: todos 
los elementos de la columna 1 son iguales a 1, todos los elementos de la columna 
2 son iguales a 2 ... 


Los valores impresos son los elementos de la columna 4, es decir, 4, 4,4,4,4,4, 
4,4,4,4 


4 — 100 DIM A (50), B (50) 
110  PRINT “1”, “12”, “13” 
120 FOR I=1 TO SO 


130 LET A () =172 
140 LET B (I) =173 
150 PRINT 1, A(D, B(I) 
160 NEXT I 

170 END 


La lista A contiene los cuadrados y la lista B los cubos de los 50 primeros núme- 
ros enteros. El ordenador imprime: 


I 12 13 

1 1 1 

2 4 8 

3 9 27 

4 16 64 

S0 2 500 125 000 


V. FUNCIONES Y SUBRUTINAS 


Ciertos tipos de cálculo aparecen con frecuencia en la escritura de 
programas: por ejemplo el cálculo de líneas trigonométricas en los pro- 
blemas científicos. O a veces un bloque de instrucciones debe repetirse 
varias veces en un mismo programa para hacer cálculos con diferentes 
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valores de los parámetros. En estos dos casos, la utilización de funciones 
y de subrutinas simplifican la tarea del programador. 


Las funciones comprenden: 
— Las funciones definidas por el sistema, 
— Las funciones definidas por el usuario que se estudiarán aparte. 


1. FUNCIONES DEFINIDAS POR EL SISTEMA 


Revisemos el programa elemental de la página 33. Es evidente que el 
importe de una factura no se escribirá por ejemplo 1485, 4923 $, sino 
más bien 1485,49 $, es decir, con un número entero de céntimos. 


Antes de imprimir este importe, será necesario transformarlo para 
eliminar las fracciones de céntimo. Esta transformación se puede reali- 
zar gracias al programa siguiente: 


100 INPUT X 

110 LET X = X x* 100 

120 LET K = 0.01 * INT (X) 
130 PRINT K 

140 GU TO 100 

150 END 


La expresión INT ( ) que aparece en la línea 120 se llama una función. 
La X en INT (X) se llama el argumento de la función INT. Esta función 
tiene un valor igual al mayor número entero inferior a su argumento. 


Por ejemplo: 
INT” (9.864) es igual a 9 
INT (- 1421.02) es igual a -1422 


100 LET K = INT (9.864) asigna pues el valor 9 a la variable K. La 
instrucción de la línea 110 transforma el valor en dólares X en un valor 
en céntimos al multiplicarlo por 100. En la línea 120, se eliminan las 
fracciones de céntimo e INT (X) representa un número entero de cénti- 
mos, que se multiplica por 0,01 para dar a K su valor en dólares. 


El argumento contenido en la función INT puede ser una expresión 
cualquiera. Es válido en BASIC: INT ((X * Y) / A * 0.5). En este caso, 
el ordenador calcula primero el valor del argumento y después el de la 
función. 
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La función INT se dice “definida por el sistema” (o ““incorporada en 
el lenguaje”) ya que el ordenador comprende el significado de esta fun- 
ción sin que el usuario tenga que definirla. Hay 11 funciones definidas 
en el lenguaje BASIC: 


SIN (X) = seno del ángulo X 

COS (X) = coseno del ángulo X 

TAN (X) = tangente del ángulo X 

ATN (X) = ángulo que tiene una tangente igual a X 

EXP (X) = exponencial de X (=ex) 

ABS (X) = valor absoluto de X 

SQR (X) = raíz cuadrada de X 

LOG (X) = logaritmo neperiano de X 

INT (X) = el mayor entero inferior a X 

SNG (X) = indica el signo deX = +1 siX>0 
= 0 siX=0 
= -1 six<0O 

RND (X) = un número aleatorio entre O y 1. 


Las cuatro primeras funciones son las funciones trigonométricas clási- 
cas, estando los ángulos definidos en radianes. 


EXP (X) calcula el valor de la constante e (= 2,7182818...) a la po- 
tencia X: 


-100 LET = 2.71828*X es pues aproximadamente equivalente a: 
100 LET K = EXP (X) 


La función ABS es igual al valor absoluto de su argumento, es decir: 


ABS (X)=X siX>0 
= —XsiX<O0O 


Si X = - 15,45 la instrucción 100 LET Y = ABS (X) dará a Y el valor 
15,45. La variable X por supuesto no habrá cambiado de valor y será 
siempre igual a -15,45. 


El argumento de las funciones LOG (logaritmo) y SQR (raíz cuadra- 
da) deberá ser positivo. Si en la ejecución de un programa el ordenador 
encuentra una de estas dos funciones con un argumento negativo, se im- 
prime un mensaje de error y la función se calcula con el valor absoluto 
del argumento. 
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Por ejemplo: 


100 LETA=-0,5 
110 LETB= 

120 LETC= 
130 PRINT C 
140 END 


8 
SQR (A « B) 


tendrá como resultado: 


SQUARE RUT UF A NEGATIVE NUMBER 
2 


Antes de ver la función RND que es bastante peculiar, se impone ha- 
cer dos observaciones para precisar el empleo de las funciones definidas 
por el sistema: 


1. No deben aparecer nunca a la izquierda de un signo igual en una 
instrucción LET. La instrucción 100 LET SQR (X) = 2 hará que el 
programa no se ejecute. 


2. Pueden tener como argumento una expresión que contenga otra 
función definida por el sistema. Por ejemplo la instrucción: 


100 LET K = INT (CQS (A) 1 2 + B) 


es sintácticamente correcta. 


La función RND (1) se emplea sobre todo en programas de simula- 
ción. Entrega un número aleatorio comprendido entre O y 1 (pero 
nunca igual a 0 ó a 1). La función RND debe poseer un argumento, pe- 
ro este argumento no tiene ninguna influencia sobre el valor de la fun- 
ción y puede escogerse arbitrariamente. La secuencia de instrucciones 
siguiente permite obtener una lista de 20 números aleatorios compren- 
didos entre 0 y 1. 


100 FOR I1=1 TO 20 

110 PRINT RND (A) 
120 NEXT I 

130 END 


(1) RND es la abreviatura de la palabra inglesa RANDOM (azar). 
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Una simulación de 20 tiradas de un dado se obtiene con el pequeño 


programa siguiente: 


100 FOR I=1 TY 20 

110 PRINT INT (6 x* RND (A) + 1) 
120 NEXT I 

130 END 


El número aleatorio entero comprendido entre 1 y 6 se genera en la 


línea 110 antes de imprimirse: 


le 


Z. 
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— 6 * RND (A) es un número aleatorio real entre O y 6 (sin compren- 
der los extremos). 


— 6 * RND (A) + 1 es un número aleatorio real entre 1 y 7 (sin 
comprender los extremos, es decir, desde 1,00001 a 6,99999 limi- 
tándose a 6 cifras significativas). 

— INT (6 * RND (A) + 1) da pues un número aleatorio entero de 1 
a 6 (extremos incluidos). 


EJERCICIOS 


¿Qué hace el programa siguiente? Compararlo con el de la página 73. 


100 INPUT X 
110 LET K =0.01 + INT (Xx 100 + 0.5) 
120 PRINT K 

130 GO TO 100 

140 END 


¿Qué hace el programa siguiente? 


100 FOR I=1 TO 20 


110 LET Di = INT (6* RND (X) + 1) 
120 LET D2 = INT (6 * RND (X) + 1) 
130 LET D3 = INT (6* RND (X) + 1) 
140 IF D1 + D2 + D3<>7 THEN 180 
150 IF Di = 4 THEN 200 

160 IF D2 = 4 THEN 200 

170 IF D3 = 4 THEN 200 

180 PRINT “PIERDE” 

190 GgY TY 210 

200 PRINT “GANA” 

210 NEXT I 

220 END 
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SOLUCIONES 


1, Este programa redondea un valor en dólares al céntimo más cercano. El progra- 
ma de la página 73 redondea un valor en dólares al céntimo inferior. 


2. Este programa simula el juego del 421 para 20 tiradas de dados. Las instruccio- 
nes 110 a 130 asignan 3 valores aleatorios de 1 a 6 a los dados D1, D2, D3. Si la 
suma de estos tres valores es diferente de 7 (4 + 2 + 1) no se tiene un 421 y el 
programa imprime “PIERDE” en la línea 180, 


Si por el contrario la suma anterior es 7 y uno de ellos es 4, se tiene un 421, ya 
que la suma de los otros dos es 3 dando las únicas combinaciones 1,2 y 2,1. 


Las líneas 150 a 170 prueban los valores D1, D2, D3: si uno de ellos es igual a 
4,el programa imprime “GANA”, en otro caso imprime “PIERDE”” 


Las 20 veces de iteración corresponden a 20 tiradas de los dados 


2. FUNCIONES DEFINIDAS POR EL USUARIO 


El programa de la página 76 permite redondear un importe al cénti- 
mo más cercano. Si esta transformación debe hacerse en varios sitios de 
un programa, puede resultar incómodo el tener que escribir cada vez la 
expresión 0.01 * INT (X * 100 + 0.5) mientras que X es lo único que 
cambia. Sería más práctico tener una función dando el valor de esta 
expresión y teniendo sólo a X como argumento. Esto puede realizarse 
gracias a una definición de función de la manera siguiente: 


100. DEF FNA (X) = 0.01 * INT (X x 100 + 0.5) 


La instrucción DEF indica que lo que sigue es la definición de una 
función. Esta función tiene aquí el nombre FNA y por valor 0.01 * INT 
(X * 100 + 0.5) 


El programa de la página 76 puede escribirse de nuevo usando esta 
nueva función: 


100 DEF FNA (X) = 0.01 * INT (X x 100 + 0.5) 
110 INPUT A 

120 LET K = FNA (A) 

130 PRINT K 

140 GY T9 110 

150 END 
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El nombre dado al argumento en la definición de la función no tiene 
ninguna importancia. Se podría también haber escrito: 


100 DEF FNA (L) = 


bi 1* INT (Lx*100 + 0.5) 
,O bién , 100 DEF FNA (Z4) 


0.0 
0.01 «+ INT (Z4 = 100 + 0.5) 


sin cambiar nada el resto del programa y obteniendo los mismos resul- 
tados. Existe sin embargo una restricción sobre la naturaleza del argu- 
mento en la definición de una función: éste debe ser una variable no 
indexada. 


Cuando el ordenador encuentra una instrucción definida por el usua- 
rio, sigue la secuencia de órdenes siguiente: 


1. Buscar en qué sitio ha sido definida esta función (aquí en la lí- 
nea 100). 


2. Dar al argumento ficticio (aquí X) la definición, el valor del argu- 
mento real (aquí A). 


3. Calcular la función usando la expresión contenida en su definición 
(aquí 0.01 * INT) (X * 100 +'0.5). 


Se puede decir que una instrucción DEF sirve para explicar al ordena- 
dor cómo calcular una función no definida por el lenguaje BASIC. 


Las reglas para la definición y el empleo de funciones son: 


1. Una función definida por el usuario debe tener un nombre de tres 
letras, comenzando por FN (abreviatura de FUNCION). Se pueden 
pues definir las funciones FNA, FNB ... FNZ o sea un máximo de 
26 funciones en un mismo programa. 


2. Una función puede definirse en cualquier punto del programa, an- 
tes o después de su uso. 

3. La definición de una función puede contener una función definida 
por el sistema como era el caso para FNA en nuestro ejemplo. Pero 
ella no puede contener a otra función definida por el usuario. 


110 DEF FNB (Y) = Y * FNA (Y) no es aceptable en BASIC pues 
la definición de la función FNB usa otra función FNA definida por 
el usuario. 


4, Una función definida por el usuario puede emplearse en un progra- 
ma de la misma manera que una función definida por el sistema. 


El empleo de estas funciones simplifica la tarea del programador 
cuando una misma expresión debe escribirse varias veces en un progra- 
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ma. Es necesario, sin embargo, evitar definir una función que se utilice 
menos de tres veces, ya que se disminuye la eficacia del programa sin 
aumentar su sencillez sustancialmente. 


EJERCICIOS 


1. Las instrucciones siguientes son independientes. ¿Cuáles son incorrectas? 


¿Por qué? 


100 
: 110 
120 
130 
140 


DEF FNX (X) = X170.5 + CS (X) 

LET K = Y *FN3 (A2) 

LET Z2 =(X713 + C) + FNG (3+X + Y 12) 
DEF FNP (L4) = L4] 3 

DEF FNK (Y) = Y * FNA (Y) 


2. ¿Qué hace el programa siguiente? 


100 
110 
120 
130 
140 
150 
160 
170 


READ 1 
FOR N =1 TO 20 
LET K = FNR (N) 


PRINT N, K 
NEXT N 
DEF FNR (X) = (1 + 1)7X 
DATA 0.10 


END 


3. Escribir definiciones de funciones que permitan el cálculo de las expresiones si- 


guientes: 


3.1416 R?, X? + X?, 4 X? 4 3X +5 


SOLUCIONES 


1. Las instrucciones siguientes son incorrectas: 


110 LET K = Y * FN3 (A2). El nombre de una función debe ser de tres letras, 
siendo las dos primeras FN. 


140 DEF FNK (Y) = Y * FNA (Y). Una función definida por el usuario no pue- 
de emplearse en la definición de otra función. 


2. Este programa permite calcular una tabla de interés compuesto para una tasa del 
10% y un período que varía de 1 a 20 años. 
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3. Las definiciones siguientes son correctas: 


100. DEF FNA (X) = 3.1416x* R 7 2 
110 DEF FNB (X) =X12+X713 
120 DEF FNC (X) =4*X72+3x*X +5 


3. SUBRUTINAS 


Hemos visto cómo la definición de una función por el usuario evitaba 
el tener que escribir varias veces un mismo cálculo en un programa. El 
empleo de una función es, sin embargo, muy limitado, pues no se aplica 
más que cuando se calcula un valor único a partir de un argumento úni- 
co con ayuda de una expresión única. 


Sucede, sin embargo, que un bloque de varias instrucciones aparezca 
varias veces en un programa. Consideremos por ejemplo el caso de un 
programa en el que un código (por ejemplo, un código de cliente), lo 
entra el usuario en diferentes sitios. Es preferible de probar un código 
después de haberlo leído para disminuir los riesgos de errores (debidos 
a una mala transmisión o a un fallo de tecleo). Si este código debe ser 
un entero positivo inferior a 1000, el programa puede tener el aspecto 
siguiente: 


200 INPUT C 

210 IF C< 1 THEN 240 

220 IF C > 999 THEN 240 

230 IF C = INT (C) THEN 260 

240 PRINT “ERROR EN LOS DATOS. REPETIR” 
250 GUY TU 200 


350 INPUT B 

360 IF B< 1 THEN 390 

370 IF.B > 999 THEN 390 

380 IF B = INT (B) THEN 410 

390 PRINT “ERROR EN LOS DATOS. REPETIR” 
400 GU TY 350 


Si este procedimiento de prueba se debe hacer 10 veces en el progra- 
ma, hará falta tener 10 veces un conjunto de instrucciones teniendo la 
misma estructura que la de las líneas 200 a 250. Sería mucho más prác- 
tico escribir este procedimiento una vez sólo y poder referirse a él cuan- 
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do se quiere leer y verificar un código. Lo anterior puede realizarse 
empleando una subrutina de la manera siguiente: 


200 GO SUB 1000 
210 LETC=A 


310 GO SUB 1000 
320 LETB=A 


1000 REM SUBRUTINA 
1010 INPUT A 
1020 IF A < 1 THEN 1050 
1030 IF A >999 THEN 1050 
Subrutina 1040 IF A = INT (A) THEN 1070 
1050 PRINT “ERROR EN LOS DATOS. 


REPETIR” 
1060 G9 TS 1010 
1070. RETURN 


En este programa se introducen dos nuevas instrucciones: 
GQ SUB y RETURN 


La subrutina se encuentra en las líneas 1000 a 1070 y permite entrar 
y verificar una variable A. Si el valor de entrada no es correcto se impri- 
me un mensaje y el usuario debe teclear otro valor. 


La instrucción GQ SUB 1000 permite hacer la transferencia de con- 
trol a la línea 1000 como una instrucción GQ TO pero juega igualmen- 
te otro papel. 


200 GQ SUB 1000 es equivalente a la orden siguiente dada al orde- 
nador: “poner en memoria el número de la próxima línea (210) después 
ejecutar la instrucción contenida en la línea 1000”. El ordenador ejecu- 
ta pues las instrucciones de las líneas 1000 a 1070 leyendo y verifican- 
do así la variable A. Cuando este cálculo ha terminado, encuentra la 
instrucción RETURN. 


1070 RETURN es equivalente a la orden siguiente dada al ordenador 
“transferir el control a la línea cuyo número ha sido puesto en memoria 
cuando la última instrucción GQ SUB ha sido encontrada” 


El número es 210, luego la próxima instrucción a ejecutarse es 210 
LET C =A que asigna a C el valor de A ya leído y verificado. 
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El ordenador sigue ahora trabajando sobre el programa principal. 
Cuando se encuentra la línea 310, se transfiere el control a la línea 
1000, se lee otro valor de A y se verifica por la subrutina, después se 
asigna a B en la línea 320 y se ejecuta el resto del programa. Esto pone 
en evidencia dos reglas fundamentales en el empleo de subrutinas: 


— Una subrutina no puede alcanzarse más que por una instrucción 
GQ SUB. Si se realiza una instrucción GQ TO en vez de ella, el 
ordenador no sabrá dónde ir cuando encuentre la instrucción 
RETURN y se originarán errores. 

— Una subrutina debe contener al menos una instrucción RETURN. 


Ella indica el fin lógico de la subrutina y puede ser diferente del 
fin físico como se muestra en el programa siguiente: 


900 GO SUB 2000 


2000 
2010 
2020 
2030 
2040 
2050 


LETC=A2=B?1.5 
GO TO 2040 
PRINT X, C 


RETURN 


— fin lógico 


LET X=CxK-A 
GO TO 2020 +“ fin físico de la subrutina 


Una subrutina puede también tener varias instrucciones RETURN 
correspondiendo a los fines lógicos de las distintas alternativas introdu- 
cidas por ejemplo con instrucciones IF como en la serie de instrucciones 


siguiente: 


500 


800 
810 
820 
830 
840 
850 
860 
870 


GO SUB 800 


IF C > = 10 THEN 830 


LET F =C 
RETURN 
IF C> = 100 THEN 860 


LET F =C+0.95 
RETURN 
LET F = Cx0.90 
RETURN 


Un programa puede contener varias subrutinas compuestas de un nú- 
mero cualquiera de instrucciones. La posición de estas subrutinas no 


82 


FUNCIONES Y SUBRUTINAS 


tiene ninguna importancia; sin embargo, es preferible agruparlas al final 
del programa para reducir los riesgos de error. 


Una subrutina puede hacer llamada a otra subrutina como en el ejem- 


plo siguiente: 


100 
110 
120 
130 


200 
210 
220 
230 
240 


300 
310 
320 


400 


REM PROGRAMA PRINCIPAL 
GU SUB 200 

PRINT A,B,C 

sTOP 


REM SUBRUTINA EXTERIOR 
INPUT A, B 

GO SUB 300 

LET C=C12 

RETURN 


REM SUBRUTINA INTERIOR EURE 
LET C=A+B 
RETURN 


END 


En este caso, el control pasa sucesivamente a las instrucciones 100 - 
- 110, 200 a 220, 300 a 320, 230 - 240 y 120 - 130. 


EJERCICIOS 


1. Indicar de las instrucciones siguientes cuáles son las correctas: 


100 
110 
120 
130 


GUY SUB "FACTURACIÓN 

GU TO SUB 1000 

RETURN 500 

IF X > =100 THEN G9Y SUB 2000 


2. El programa siguiente debe leer el valor de la variable A, calcular B = 2A e im- 
primirlo. ¿Qué hace en realidad? ¿Cómo modificarlo? 


100 
110 
120 


200 
210 
220 


INPUT A 
GY SUB 200 
PRINT B 


LET B=2x*A 
RETURN 
END 


3. Escribir un programa que contenga las 3 subrutinas siguientes: 
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— Una que lea 2 variables del teclado. 
— Una que calcule la suma A + B. 
— Una que imprima el resultado. 


El programa debe permitir este cálculo para diferentes pares de datos y pararse 
cuando A + B sea superior a 10.000. 


SOLUCIONES 


. Las cuatro instrucciones son sintácticamente incorrectas: 


— 100 GQ SUB FACTURACION. GQ SUB debe ir seguido del número de la 
primera línea a ejecutar en la subrutina y no del nombre de esta subrutina. 


— 100 GQ TQ SUB 1000. La instrucción que permite llamar a una subrutina es 
GQ SUB y no GQ TQ SUB. 
— 120 RETURN 500, El RETURN no debe ir seguido de ninguna expresión. 


— 130 IF X > = 100 THEN GQ SUB 2000. En una instrucción IF-THEN, el 
THEN debe ir seguido del número de línea a ejecutar, si la condición se cum- 
ple y no de GQ SUB ni de GQ TO. 


. Este programa calcula e imprime B = 2A, pero un número ilimitado de veces. En 


efecto, se lee A, el control pasa a la línea 200, se calcula B, el control se vuelve a 
la línea 120 imprimiéndose B. 


Pero ahora el ordenador va a ejecutar la próxima instrucción que se encuentra en 
la línea 200 y se recalcula B. Al hallar la instrucción RETURN, el control va a 
volver a la línea cuyo número ha sido puesto en memoria por la última instruc- 
ción GQ SUB, es decir, el número 120. B se imprime de nuevo y se vuelve a repe- 
tir el ciclo hasta que el usuario detenga manualmente la ejecución de este progra- 
ma. 


Ciertos sistemas tienen sin embargo la capacidad de detectar este tipo de error. 
En este caso, cuando se alcanza un RETURN y no ha sido mediante una instruc- 
ción GQ SUB, el sistema imprime un mensaje de error y se interrumpe la ejecu- 
ción. 

Para calcular B e imprimirlo una sola vez, basta introducir una instrucción STQP 
entre el fin del programa principal y el comienzo de la subrutina. Por ejemplo: 


130 STOP 


100 REM PROGRAMA PRINCIPAL 
110 GO SUB 200 

120 GUY SUB 300 

130 GUY SUB 400 

140 IF C < = 10000 THEN 110 


FUNCIONES Y SUBRUTINAS 


STOP 

REM LECTURA 
INPUT A,B 
RETURN 

REM CALCULOS 
LETC=A+B 
RETURN 

REM ESCRITURA 
PRINT C 
RETURN 

END 
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CAPITULO 111 
Realización de un programa en BASIC 


En el capítulo Il se ha definido el lenguaje BASIC que nos permitía 
así el escribir programas. 


I. LOS COMANDOS DE CONTROL 


Deben permitir al usuario indicar al ordenador lo que quiere hacer: 
escribir un programa, utilizarlo, modificarlo... Los comandos de control 
no son propios del BASIC y difieren de un constructor a otro. Aquí in- 
dicaremos el sistema desarrollado en el Dartmouth College y empleado 
por General Eléctrica. Los comandos principales de control para los sis- 
temas HP 2000 B, C y F se dan en el apéndice. 


En los ejemplos siguientes, los caracteres tecleados por el usuario irán 
subrayados para diferenciarlos de los escritos por el ordenador. En la 
hoja del teletipo, los caracteres serán idénticos y por supuesto sin sub- 
rayar. Cada línea tecleada por el usuario deberá ir seguida de un retorno 
de carro. 


IDENTIFICACION 


Antes de que se pueda escribir o utilizar un programa, el ordenador 
pide un cierto número de informaciones. Veamos cómo se desarrolla la 
conversación usuario-ordenador: 


HELLY 

USER NUMBER -- L 43217 
SYSTEM -- BAS 

NEW YR YLD -- NEW 

NEW FILE NAME -- EJEMPLO 
READY 
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El usuario teclea primero HELLO para indicar al ordenador su deseo 
de usarlo, el ordenador pide al usuario su número, y el usuario teclea: 
L 43217. Luego se le debe indicar el lenguaje usado: BAS para BASIC. 
Pueden estar disponibles otros lenguajes como el FORTRAN o COBOL. 


La línea siguiente pregunta si: 


— Se quiere emplear un programa ya en memoria, en cuyo caso se es- 
cribe LD, 


— Se quiere escribir un programa nuevo, en este caso se escribe NEW: 
éste es el caso elegido. 


El usuario debe luego identificar el programa nuevo o viejo con un 
nombre, lo que hace tecleando en la línea siguiente: EJEMPLO. 


El ordenador indica que está preparado para trabajar con este progra- 
ma escribiendo: READY. 


ENTRADA DE UN PROGRAMA 


El usuario ha expresado su deseo de introducir un nuevo programa 
tecleando NEW. Después de haber dado un nombre a este programa 
(EJEMPLO) y haber recibido luz verde del ordenador (READY), no 
queda más que escribir este programa utilizando el teclado. 


Si el usuario quiere borrar todas las instrucciones que ha- escrito, 
basta que teclee SCRATCH. Luego puede volver a escribir el progra- 
ma: esto puede ser útil cuando se han cometido demasiados errores y _ 
es mejor volver a comenzar que corregir todas las líneas. 


SALVAR 


Si se quiere guardar un programa en memoria auxiliar para utilizarlo 
más tarde, se puede hacer tecleando SAVE. Para acceder a este progra- 
ma más tarde, bastará teclear LD e indicar el nombre del programa 
cuando el ordenador lo pida: 


HELLO 

USER NUMBER -- L 43217 
SYSTEM -- BAS 

NEW GR YLD -- YVLD 

VLD FILE NAME -- EJEMPLO 
READY 
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EJECUCION DE UN PROGRAMA 


Cuando se ha tecleado el nuevo programa, o enseguida después que el 
ordenador conteste READY en el caso de un programa viejo, el usuario 
puede hacer ejecutar su programa tecleando RUN. Los resultados o 
(mensajes de error) serán impresos por el ordenador. Volviendo a te- 
clear este comando durante la ejecución, se obtendrá la duración de la 
ejecución hasta este momento. 


PARADA DE LA EJECUCION 
Puede suceder que se quiera interrumpir la ejecución de un programa. 


Se puede hacer tecleando STOP. El ordenador estará preparado a hacer 
otros trabajos, sobre el mismo programa o sobre otro. 


BORRADO 


Se puede borrar un programa de la memoria, que se puso allí con el 
comando SAVE, tecleando UNSAVE. 


LISTADO DE UN PROGRAMA 
El comando LIST permite obtener el listado completo de un progra- 
ma con una breve cabecera (que da entre otras cosas el nombre del pro- 


grama). Se puede obtener el mismo listado, pero sin cabecera, con el co- 
mando LISTNH. 


Si se quiere sólo el listado a partir de la línea 150,se podrá obtener 
gracias a: 


LIST 150 en cuyo caso será precedido de una cabecera 


LISTNH 150 en cuyo caso no irá precedido de una cabecera 


CAMBIO DE NOMBRE 


El nombre del programa que se emplea normalmente, puede cambiar- 
se empleando el comando RENAME. El ordenador pide el nombre del 
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nuevo programa. Si se emplea el programa EJEMPLO, se le puede dar el 
nombre Y TRO así: 


RENAME 
NEW FILE NAME -- AUTRE 
READY 


LONGITUD DE UN PROGRAMA 


El programa BASIC debe tener una longitud (medida en caracteres) 
máxima que depende del ordenador empleado. Si se quiere conocer 
la longitud del trozo del programa escrito, basta teclear LENGTH. 


LISTA DE LOS PROGRAMAS 


Para tener la lista de los programas puestos en memoria bajo vuestro 
número, bastará teclear CATALOG. Si se quiere también la longitud, 
teclear CASALQG. 


Para tener la lista de los programas de la biblioteca es necesario lla- 
mar al programa CATLOG *** y hacerle listar así: 


NEW GR ULD -- VLD 
OLD FILE NAME -- CATLOG + x x 
READY 


PARADA DE LA SESION 


Cuando se ha terminado el uso del ordenador, basta teclear BYE o 
bien GOOD BYE para cortar la comunicación entre el teletipo y el or- 
denador. 


Una instrucción en un programa va siempre precedida por un nom- 
bre, el número de la línea. Pero no es así para un comando de control, 
permitiendo al ordenador conocer la naturaleza de una línea (instruc- 
ción o comando) con ver el primer carácter de la línea. Se puede indicar 
un comando de control con sus tres primeras letras: REN para RENA- 
ME, CAT para CATALOG, CAS para CASALOG, etc. Sin embargo, se 
recomienda escribir los comandos enteros, sobre todo al principio. 
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II. CORRECCION DE LOS ERRORES 


1, ERRORES DE SINTAXIS 


Son errores del lenguaje: el usuario ha escrito alguna cosa que no es 
correcta en BASIC. Estos errores los encuentra el ordenador en la com- 
pilación, y la ejecución no puede pues comenzar. Se imprime un mensa- 
je indicando la naturaleza del error y el número de la línea en que se en- 
cuentra. 


Estos errores son en general fáciles de corregir. El programa imagina- 
rio siguiente: 


100 READ X 
110 Y =X?2 

120 LET SQR (Z) = Y 
130 GO TO 100 

140 DATA 4,395,6 


dará estos mensajes de error: 


NO VPERATOR AFTER STATEMENT NUMBER 110 
NY VARIABLE NAME AFTER LET 120 
ILLEGAL CHARACTER IN STATEMENT 140 


El primer mensaje indica que la variable Y en la línea 110 no deberá 
seguir inmediatamente al número de línea. Esto nos permite ver que se 
ha omitido la instrucción LET. 


El siguiente mensaje indica que lo que sigue a la instrucción LET no 
es una variable, como debería ser. Se ve que se ha escrito una función a 
la izquierda del signo **=” lo que no es válido. Si se quiere el valor Z raíz 
de la ecuación VZ = Y, se debe escribir: 


120 LET Z=Y1f 2 
El último mensaje indica que hay un carácter ilegal en la línea 140. 


Se ve rápidamente que se ha tecleado un **?” en lugar de una “* ” lo que 
es ciertamente un error en la tecla de mayúsculas/minúsculas. 


Para corregir estos errores, basta escribir: 
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La nueva línea 110 sustituye automáticamente a la línea con este nú- 
mero en el programa. De la misma manera, si se hubiera querido intro- 
ducir una instrucción entre las líneas 100 y 110, habría bastado escribir 
esta instrucción con un número de línea comprendido entre 100 y 110. 


La lista de errores de sintaxis dada por el ordenador no es obligatoria- 
mente exhaustiva cuando el número de errores es bastante importante. 
Por ejemplo se pueden tener 10 mensajes de error. La corrección de es- 
tos 10 errores no dará obligatoriamente un programa sintácticamente 
correcto. Pueden aparecer errores que habían sido enmascarados por los 
ya recogidos. 


2. ERRORES DE LOGICA 


Son errores resultantes de la concepción lógica del programa y que 
no aparecen en la compilación. Algunos, tales como la división por cero, 
el uso de argumentos ilegales en las funciones, datos insuficientes, etc. 
son descubiertos por el ordenador y originan mensajes de error. Pero 
otros errores no son descubiertos por el ordenador y sencillamente dan 
errores falsos. Para descubrirlos es a menudo necesario probar un pro- 
grama haciendo los cálculos a mano o con máquina de calcular para 
diversos grupos de datos y comparando estos resultados con los del 
ordenador. 


Un ejemplo de un error de este tipo es: 


100 READ A 

110 IF A=0 THEN 140 
120 LETS=S+A 

130 GUY TO 100 

140 PRINT S 

150 READ A 

160 IF A< >0 THEN 120 
170 DATA 4,6,1,0 

180 DATA 3,2,0,0 

19 END 


Este programa debe hacer la suma de grupos de números. El final de 
un grupo en la lista de datos se indica con un cero. El final de la lista 
se indica con dos ceros. Los resultados deberían ser 4+6+ 1 =11 y 
3+ 2=5. De hecho el ordenador da los valores 11 y 16, lo que deriva 
de la no inicialización de S. Para el primer grupo de valores, al no estar 
determinada S toma el valor O al principio. Para el segundo grupo, su 
valor inicial es diferente de cero, e igual a la suma de los números del 
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grupo precedente, lo que nos conduce a resultados falsos. Esto puede 
corregirse gracias a la instrucción: 


ISS LET” S=0 


En los programas mucho más complicados, puede ser muy difícil 
descubrir los errores lógicos. Se recurre principalmente a dos métodos: 


1. Simulación a mano. Para un conjunto sencillo de datos se “simula” 
al ordenador, es decir, que se sigue el programa instrucción a ins- 
trucción, ejecutando estas instrucciones como lo hace el ordenador. 
Esto permite ver exactamente en qué momento el programa se 
aleja de lo que se desea obtener. 


(59) 


. Trazas. Son listados del valor de cada variable después de la ejecu- 
ción de cada instrucción. El principio es el mismo que con la simu- 
lación a mano, pero se deja al ordenador el cuidado de calcular los 
valores de las variables. A menudo basta imprimir sólo los valores 
de las variables que se juzgan principales en los “puntos estratégi- 
cos” del programa, en particular antes de las instrucciones IF. Esto 
se Obtiene ciertamente con instrucciones PRINT que se suprimen 
una vez corregidos los errores. 


El descubrimiento y corrección de errores ocupa, con frecuencia, una 
parte considerable del tiempo consumido en la realización del progra- 
ma. Es más ventajoso a veces consumir más tiempo en la escritura cuida- 
dosa de un programa, que escribirlo rápidamente y esperar que los men- 
sajes de error del ordenador permitieran su acabado. 


III. EJEMPLO 


Vamos a dar un ejemplo sencillo de la realización de un programa 
para indicar las diferentes etapas a seguir: 


a) El problema 


Vamos a estudiar la variación de la rentabilidad de un taller, que pro- 
duce un solo tipo de piezas, en función del nivel de producción. Supon- 
gamos que los costes fijos son F, los costes variables por unidad V y el 
precio unitario de venta P. Se puede determinar el punto de equilibrio 
E, los beneficios (o pérdidas) a la capacidad máxima C y al nivel previs- 
to de utilización de la capacidad (U), gracias al diagrama siguiente: 
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Volumen 


[] 
| 
| 
) 
| 
| 
| 
] 
| 
] 
) 
| 
¡ (Unidades) 


E U c 


Debemos realizar un programa que calcule E, B1 y BO a partir de F, 
V,P,U y C con el fin de obtener rápidamente las variaciones de E, B1 
y BO cuando cambian F y/o V y/o P y/o V y/o C. 


b) Descripción matemática 


Debemos encontrar las relaciones matemáticas que nos permitan ob- 
tener E, B1 y BO a partir de F, V, P, U y C. El estudio del gráfico nos 
permite escribir enseguida: 


ES F 
_Pp-vV 

BO = C(P — V) - F 

B1 = U(P — V)- F 


c) Organigrama 
El programa debe: 


— Leer los datos. 


— Verificarlos. En efecto, no se puede tener, por ejemplo una capaci- 
dad negativa: si fuera así, el usuario habría hecho un error al en- 
trar el dato y deberá repetirlo. 


— Calcular E, BO y Bl 
— Imprimir E. 


— Imprimir BO y Bl indicando claramente si se trata de pérdidas o 
beneficios. 


— Saber cuándo se para. Los cálculos se ejecutarán para varios con- 
juntos de datos. Se detendrá el programa cuando se lea un coste 
fijo F con un valor de 0. 
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A partir de esta lista de actividades, se llega después algunos tanteos 
al organigrama siguiente (1). 


Comienzo 


Leer 
F V ,P,C,U 


Imprimir 
mensaje 
de error 


¡Imprimir pér- 
didas a capaci- 
dad máxima 


Imprimir bene- 
ficios a capaci- 
dad máxima 


Imprimir pér- 
didas previstas 


Imprimir bene- 
ficios previstos 


(1) Los caracteres subrayados (y por supuesto el programa) han sido tecleados por el usuario. 
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d) Programación 


El organigrama anterior permite escribir rápidamente un programa 
que se teclea en el teletipo o teclado de la forma siguiente: 


HELLO 
USER NUMBER -- L 43217 


SYSTEM -- BAS 

NEW YR YLD -- NEW 

NEW FILE NAME -- PROCOST 
READY 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


PRINT ”F,V,P,C,U” 
INPUT F,V,P,C,U 

IF F =0 THEN 320 

IF F <0 THEN 300 

IF V <0 THEN 300 

IF C <0 THEN 300 

IF U<0 THEN 300 

LET E = F/(P — V) 

LET Bo = C(P - V) - 

LET B1 = U(P — V)— 

PRINT. “PUNTO DE EQUILIBRIO: ”: E; “UNIDADES” 
IF BO < 0 THEN 260 

PRINT “BENEFICIO A PLENA CAPACIDAD:”; BO; “$” 
IF B1 < 0 THEN 280 

PRINT “BENEFICIO PREVISTO:”; B1; “$” 

GO -TQ 100 

PRINT “PERDIDAS A PLENA CAPACIDAD”; — BO; “$” 
GQ TQ 230 

PRINT “PERDIDAS PREVISTAS”; - Bl; “$” 

GQ TO 100 

PRINT “ERROR EN LOS DATOS. REPETIR” 

GO TO 100 


END 


e) Corrección de errores 


Para saber si existen errores en este programa, basta teclear RUN des- 
pués de la última instrucción. Veamos la respuesta del ordenador: 


RUN 
WAIT 


PROCOST 15: 31 PARIS2 25/05/70 
ILLEGAL VARIABLE NAME 180 

ILLEGAL VARIABLE NAME 190 

ILLEGAL STATEMENT 250 


USED: 0 SEC. 
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lo mismo que el empleo de “TI” en vez de 


como sigue: 


180 LET BO = C+*(P — V)- F 
190 LET B1 = U«+F(P — V)-— F 
250 GUY TO 100 

RUN 

WAIT 


Los errores en las líneas 180 y 190 se derivan del hecho de que se 
han escrito las fórmulas matemáticas olvidando que la multiplicación no 
es implícita en BASIC, se debe añadir el símbolo 
nea 250 es más difícil de ver y pide una buena vista: La segunda letra 
del “GQ” no es una Q sino un O. Este error de tecleo es muy corriente, 


UE EE 


Se pueden corregir estos errores y tratar de ejecutar el programa 


PROCOST 15:32 PARIS 2 25/05/70 


EVECUO 
240000,2,6,20000, 12000 
PUNTO DE EQUILIBRIO: 10000 


BENEFICIO A PLENA CAPACIDAD: 


BENEFICIO PREVISTO: 8000 
F V,P,_C,U 

250000, 1, 11, 20000, 15000 
PUNTO DE EQUILIBRIO: 5000 


BENEFICIO A PLENA CAPACIDAD: 


BENEFICIO PREVISTO: 100000 
F,V,P,C,U 
20,0,0,0,0 


USED 2.05 SEC. 


f) Mejoras 


Se puede pensar en mejorar la presentación: 


— Indicando al usuario del programa lo que significan F, V,P,C, U; 


— Separando con una línea en blanco los resultados que se refieren a 
otros datos. 
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UNIDADES 
4000 


UNIDADES 
150000 


. El error de la lí- 


EJEMPLO 


Esto se puede obtener tecleando las nuevas instrucciones: 


40 PRINT “F 
SO PRINT “V 
63 PRINT “P 
76 PRINT “C 
80 PRINT “U 


CQSTES FIJOS (EN $)” 

COSTES VARIABLES EN $ / UNIDAD” 
PRECIQ (EN $4/ UNIDAD)” 

CAPACIDAD MAXIMA (EN UNIDADES)” 
CAPACIDAD EMPLEADA (EN UNIDADES)” 


90 PRINT 
100 PRINT 

105 PRINT “F,V,P,C,U” 

RUN 

WAIT. 

PROCOST 15: 35 PARIS 2 25/05/70 

F = CQSTES FIJOS (EN $) 

V = COSTES VARIABLES EN $/ UNIDAD 

P = PRECIO (EN $/ UNIDAD) 

C = CAPACIDAD MAXIMA (EN UNIDADES) 

U = CAPACIDAD UTILIZADA (EN UNIDADES) 

F, V,P,C,U 

240000, 2, 6, 20000, 12000 

PUNTO DE EQUILIBRIO: 10000 UNIDADES 
BENEFICIO A PLENA CAPACIDAD: 40000 $ 
BENEFICIO PREVISTO: 8000 $ 

E. Y. P.CU 

2100000, 5, 10, 15000, 10000 

PUNTO DE EQUILIBRIO: 20000 UNIDADES 
PERDIDAS A PLENA CAPACIDAD: 25000 3 
PERDIDAS PREVISTAS 50000 $ 

F,V,P,C,U 

20,0,0,0,0 

USED 2:20 SEC 


Después de haber verificado la exactitud de los cálculos (a mano o 
con calculadora) para estos datos, el usuario puede: 


— Pedir un listado completo de las instrucciones, 
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— Guardar el programa en memoria auxiliar (para usarlo más tarde). 
— Cortar la comunicación con el ordenador, como sigue: 


LIST 

PROCYST 15.40 PARIS 2 25/05/80 

40 PRINT ”F = CQSTES FIJOS (EN $)” 

50 PRINT “V = CQSTES VARIABLES EN $/ UNIDAD” 

60 PRINT “P = PRECIQ (EN $/ UNIDAD)” 

70 PRINT ”“C = CAPACIDAD MAXIMA (EN UNIDADES)” 
80 PRINT ”U = CAPACIDAD UTILIZADA (EN UNIDADES)” 
“0 PRINT 

100  PRINT 


105 PRINT ”F,V,C,P,U” 

110 INPUT F,V,C,P,U 

120 IF F =0 THEN 320 

130 IF F <0 THEN 300 

140 IF V <0 THEN 300 

150 IF C <0 THEN 300 

160 IF U<O0 THEN 300 

170 LET E = F(P -— V) 

180 LET BO =Cx(P — V) — F 

190 LET B1 =Ux(P — V) — F 

200 PRINT “PUNTO DE EQUILIBRIO:”; E; “UNIDADES” 
210 IF BO<0 THEN 260 

220 PRINT “BENEFICIO A PLENA CAPACIDAD:”; BO; “$” 
230 IF B1<0 THEN 280 

240 PRINT “BENEFICIO PREVISTO:”; B1; “$” 

250 GY TS 100 

260 PRINT “PERDIDAS A PLENA CAPACIDAD:”; -BO; “$” 
270 GO TO 230 

280 PRINT PERDIDAS PREVISTAS”; - B1; “$” 

290 GO TO 100 

300 PRINT ¡“ERROR EN LOS DATOS. REPETIR” 


x** OFF AT 15.42 MON 25/05/80 
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CAPITULO IV 


Programas útiles 


Esta parte contiene un cierto número de programas útiles en diferen- 
tes dominios: estadística, investigación operativa, finanzas y produc- 
ción. El objetivo de este capítulo es doble: 


1. Suministrar un cierto número de ejemplos de programas escritos 
en BASIC. El lector puede, como ejercicio, tratar de reconstruir 
estos programas a partir de la hoja de resultados y de la especifica- 
ción de los datos. 


2. Permitir al lector emplear el ordenador para aplicaciones muy nor- 
males, sin tener que volver a escribir él mismo programas clásicos. 


Cada programa se presentará de la forma siguiente: 


1. El problema a resolver. Cuando sean necesarios conocimientos par- 
ticulares para su resolución, se harán referencias a obras especiali- 
zadas. 


2. Esbozo del método usado. 


3. Presentación de los datos. Los programas se han hecho conversa- 
cionales cuando la lista de datos es corta. Cuando esta lista puede 
ser grande, ha parecido preferible incluirla en el programa. 


4. Listado del programa y hoja de resultados para un conjunto de 
datos. 


Los comentarios incluídos en los programas permiten una compren- 
sión cómoda y facilitan las modificaciones. 
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I. CLASIFICACION DE DATOS ESTADISTICOS 
a) Problema (*) 


Este programa debe transformar una serie numérica no ordenada en 
una serie ordenada. Deberá imprimirse una tabla de frecuencias indican- 
do para cada clase el límite inferior, el límite superior, la frecuencia ab- 
soluta y la frecuencia relativa acumulada. 


b) Método 


Las frecuencias absolutas se calculan durante la lectura de datos. Las 
frecuencias relativas y relativas acumuladas se calculan cuando se impri- 
men los resultados. 


c) Presentación de los datos 
Deben escribirse en el programa. El usuario debe indicar para cada se- 
rie de datos: 


— El número de clases, 

— El límite superior de la primera clase, 

— El intervalo de las clases, 

— Los datos de la serie numérica, 

— El número 99999 para indicar el fin de la serie. 


Varias series de datos pueden escribirse consecutivamente. El número 
99999 debe ponerse para indicar el fin de la lista de datos. 


El número de valores en una serie está limitado a 100. 


d) Programa y hojas de resultados (Pág. 103, 104) 


II. ANALISIS DE DATOS ESTADISTICOS (*) 


a) Problema 


Este problema debe indicar el número de datos, el valor máximo, el 
valor mínimo, la mediana, la media, la varianza y la desviación típica de 
una serie numérica. 


(*) Ver la obra: Calot “Curso de estadística descriptiva”. 34 ed. Editorial Paraninfo, 1982, Ma- 
drid (España). 
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b) Método 


Al leer los datos se calcula la suma de los datos, la suma de los cua- 
drados y los valores máximo y mínimo. La media X y la varianza V se 
calculan con las fórmulas: 


Lo ZA 
K==> 
N 
Ñ NXXé? — (EXiy? 
NN —1) 
siendo: 
N El número de los datos, 
Xi Es la suma de los datos, 
yX; Es la suma de los cuadrados de los datos. 


La desviación típica es la raiz cuadrada de la varianza. 


c) Presentación de los datos 


Deben imprimirse en el programa. Basta indicar consecutivamente 
cada serie numérica acabada con 99999, Dos series numéricas deben ir 
separadas con un 0. El último 99999 de la lista de datos debe ir seguido 
de un número cualquiera distinto de 0. 


El número de valores en una serie está limitado a 100. 


d) Programa y hoja de resultados (Pág. 105) 


II. REGRESION LINEAL (*) 


a) Problema 


Dado un conjunto de puntos definido con N pares de valores Xi e Yi, 
la regresión lineal permite determinar la recta Y = AX + B que se ajuste 
lo mejor posible a este conjunto. El coeficiente de correlación R es una 
medida del ajuste de la recta a los datos. La desviación típica de la esti- 


(*) Idem a la nota de la pág. 100. 
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mación de E es una medida de la dispersión de valores Y alrededor de 


la recta. 
Los valores A, B, R y E deben calcularse. 


b) Método 
Se usan las fórmulas siguientes: 


e N2EXiYi — (2Xi(2 Y i) 


A 
NEXi? — (EXiy 


= Y — AX 
N2ZXiYi — (2Xi(2 Y 1) 


y NEXi? — (EXi)?../NEYi? — (EY iy? 


E JE — BXYi — AEXiYi 
o N — 2 


B 
R = 


2 2 
Los valores 2 Xi, Y Yi, YY;¡, Xi y 2 XiYi se calculan durante la lec- 
tura. 


c) Presentación de los datos 


Deben ser impresos por el programa. Los pares X, Y formando el 
conjunto de puntos se escribe consecutivamente. Cada serie de datos 
debe acabarse con 99999, Dos series deben ir separadas con un 0. El úl- 
timo 99999 de la lista de datos debe ir seguido de un número cualquiera 
diferente de 0. 


El número de pares de valores se limita a 100. 


d) Programa y hoja de resultados (Pág. 107). 


IV. CALCULO DE UNA AMORTIZACION DECRECIENTE 


a) Problema 


Sea una inversión l a amortizar en N años. Esto se puede hacer li- 
nealmente a razón de 100% /N por año. Otro método llamado de amor- 
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PROGRAMA 


100 PRINT “CLASIFICACIÓN DE DATOS ESTADISTICOS” 
110 PRINT 

120REM: LECTURA DEL NUMERO DE CLASES C 

130 READ C 

140REM: SI C =-99999 FIN DE LA LISTA DE DATOS 
150 IF C= -99999 THEN 630 

160REM: LECTURA DEP Y L 

170 READ P,L 

180 DIM N (20) 

190REM: LECTURA DE DATOS Y CALCULO DE LAS FRECUENCIAS ABSOLUTAS 
200 FOR 1=1 TO 100 

210 READ D 

220 IF D=99999 THEN 320 

230 IF D>=P THEN 260 

240 LET N (1) =N (1) +1 

250 G0 TQ 310 

260 IF D<P+(C-2)* L THEN 290 

270 LET N(C) =N (C) +1 

280 G0 TO 310 

290 LET K=INT ((D-P)/L)+2 

300 LET N (K)=N (K)+1 

310 NEXT | 

320 LET |=1-1 

330REM: ESCRITURA DE CABECERAS 

340 PRINT 

350 PRINT 

360 PRINT “NUMERO DE DATOS:”; | 

370 PRINT 

380 PRINT ” ”, “ ”, “TABLA DE FRECUENCIAS” 
390 PRINT 

400 PRINT “ LIMITE”, LIMITE”, “FRECUENCIAS”, “FRECUENCIAS”, “FRECUENCIAS” 
410 PRINT “INFERIOR”, “SUPERIOR”, “ABSOLUTAS”, “RELATIVAS”, “RELATIVAS” 
420 PRINT" 6%“ % *” “ACUMULADAS” 
430REM: CLASE 1 

440 LET B=N (1)/1 

450 PRINT “-INFINITO”,P,N (1), B,B, 

460 LETS =B 

470 LET N(1) =0 

480REM: “CLASES INTERMEDIAS” 

490 FOR J=2 TO C-1 

500 LET B=N (J)/ 

510 LET S=S+B 

520 PRINT P+L +* (J-2),P+L + (J-1), N (J),B,S 
530 LET N (J) =0 

540 NEXT J 

550REM: CLASE C 

560 LET B=N (C)l 

570 PRINT P+L +* (C-2), “+ INFINITO”, N (C), B,S+B 
580 LET N (C) = 00 

590 GQ TO 110 

600 DATA 6,2,2,2,6,4,5,7,8,3,5,4,3,6, 5,6,4,9,99999 

610 DATA 5, 10, 5,1,18,35,50,22,17,9,8,12,15,99999 

620 DATA -99999 

630 END 
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0700 00.0 750.0, 050 "0-70: 0 .0- 0.0: O. Q 
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HOJA DE RESULTADOS 


CLASIFICACION DE DATOS ESTADISTICOS 


NUMERO DE DATOS: 15 


TABLA DE FRECUENCIAS 


LIMITE LIMITE FRECUENCIAS FRECUENCIAS 
INFERIOR SUPERIOR ABSOLUTAS RELATIVAS 
- INFINITO 2 0 0 

2 a 3 2 

4 6 6 A 

6 8 4 .266667 

8 10 2 133333 

10 + INFINITO 0 0 


NUMERQ DE DATOS: 10 


TABLA DE FRECUENCIAS 


LIMITE LIMITE FRECUENCIAS FRECUENCIAS 
INFERIOR SUPERIOR ABSOLUTAS RELATIVAS 
- INFINITO 10 3 3 

10 15 1 M 
15 20 3 3 
20 25 1 .1 

25 + INFINITO 2 iZ 


FRECUENCIAS 
RELATIVAS 
ACUMULADAS 

0 

Z 

6 

.866667 

L 

1. 


FRECUENCIAS 


RELATIVAS 
ACUMULADAS 


Toa 


100 PRINT “ANALISIS DE DATOS ESTADISTICOS” 


110 


PRINT 


CALCULO DE UNA AMORTIZACION DECRECIENTE 


PROGRAMA 


120REM: INICIALIZACION 
130 LET S1=0 

140 LET S2=0 

150 LET D1= 999999 
160 LET D2 =-999999 


170REM: “LECTURA Y CALCULO DE S1 y S2 


180 FOR N=1 TO 100 


190 READ D 

200 IF D=99999 THEN 280 
210 LET S1 =S1+D 

220 LET S2 =5S2+D+*D 
230 IF D> = D1 THEN 250 
240 LET D1 =D 

250 IF D<=D2 THEN 270 
260 LET D2 =D 

270 NEXT N 


280 LET N=N-1 
290REM: CALCULO 
300 LET M = (D1 + D2) /2 
310 LET Y = S1/N 


320 LET V = (N*S2 - S1*S1)/N /(N - 1) 


330 LET E =SOR (V) 
340REM: ESCRITURA 


350 
360 
370 
380 
390 
400 
410 
420 


430REM: PRUEBA FIN DE LA LISTA DE DATOS 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


“NUMERO DE DATOS”; N 
“VALOR MAXIMQ:”; D2 
“VALOR MINIMO :”; D1 
“MEDIANA:”;M 
“MEDIA:”; Y 
“VARIANZA:”;V 


“DESVIACIÓN TIPICA:”; E 


READ R 


IFR =0 THEN 11 
DATA 7,4,8,9,3,1, 
DATA 2, 5, 5, 5, 6, 6, 


END 


0 
6, 99999, 0 
6 


HOJA DE RESULTADOS 


ANALISIS DE DATOS ESTADISTICOS 


NUMERO DE DATOS: 7 
VALOR MAXIMO: 9 

VALOR MINIMO: 1 
MEDIANA: 5 

MEDIA; 5.42857 

VARIANZA: 8.28571 
DESVIACIÓN TIPICA: 2.87849 


NUMERO DE DATOS: 15 
VALOR MAXIMO: 8 

VALOR MINIMO: 2 
MEDIANA: 5 

MEDIA; 6.06667 

VARIANZA: 2.20952 
DESVIACIÓN TIPICA: 1.48645 


9 
,6,6,7,7,7,7,8,8, 99999, 1 
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tización decreciente, consiste en amortizar A % del valor contable cada 
año, hasta el año L-1, y luego amortizar el resto linealmente entre los 
años L y N. La fracción A se escoge igual a 200 % N. 


Dados los tres valores I, L y N se pide calcular la amortización anual 
y el valor contable para los N años. 


b) Método 


Se calcula primero la amortización anual y el valor contable y se im- 
primen, para el período en que se aplica la razón decreciente (entre los 
años 1 y L-1). El valor contable en el año L-1 permite calcular la amor- 
tización lineal entre los años L y N. 


c) Presentación de los datos 


El usuario debe dar los valores de I, N y L al ejecutarse el programa. 
Después de la impresión de los resultados, se pide si se desea modificar 
alguno de estos valores o bien parar la ejecución. 


d) Programa y hoja de resultados (Pág. 108, 109) 


V. CALCULO DEL VALOR ACTUALIZADO 


a) Problema 


Se ha previsto una inversión con una serie de ingresos anuales corres- 
pondientes. Se trata de calcular el importe que en el momento de la in- 
versión equivale a esta serie de ingresos, para lo que se supone conocida 
una tasa de actualización (coste de capital, tasa de rentabilidad media 
de las inversiones...) 


b) Método 
El valor actualizado se obtiene con la fórmula: 


_ > Y 
¡=0(1 +1 


siendo Xj el ingreso en el año 7, 
I la tasa de actualización, 
N la duración del proyecto. 
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PROGRAMA 


100 PRINT “REGRESIÓN LINEAL” 

110 PRINT 

120REM: INICIALIZACION 

130 LET X1=0 

140 LET Y1=0 

150 LET X2=0 

160 LET Y2=0 

170 LETP=0 

180REM: LECTURA DE DATOS Y CALCULO DE X1,Y1,X2,Y2 Y P 
190 FOR N=1 TO 100 


200 READ X 
210 IF X=99999 THEN 290 
220 READ Y 


230 LET X1=X1+*X 

240 LET Y1=Y1+X 

250 LET X2=X2+X * X 

260 LET Y2=Y2+Y * Y 

270 LET P=P+X* Y 

280 NEXTN 

290 LET N=N-1 

300REM: CALCULOS 

310 LET M1=X1/N 

320 LET M2=Y1/N 

330 LET A=(N*P-X1+* Y1)/(N * X2 - X1* X1) 

340 LET B=M2-A+*M1 

350 LET R=((N *P)-X1+* Y1)/SOR (N * N2 - X1 * X1) /SOR (N * Y2 - Y1 * Y1) 
360 LET E=SOR ((Y2-B+* Y1-A+*P)/(N - 2) / (N - 2)) 
370REM: ESCRITURA 

380 PRINT 

390 PRINT“N =";N 

400 PRINT”“A=";A 

410 PRINT “B=";B 

420 PRINT“R=",R 

430 PRINT“E=";E 

440REM: PRUEBA FIN DE LA LISTA DE DATOS 

450 READ X 

460 IF X=0 THEN 110 

470 DATA 2,10, 3, 16, 5, 20, 6, 30, 99999, 0 

480 DATA 10, 10, 20, 10, 60, 30, 100, 40, 210, 110, 99999, 1 
490 END 


HOJA DE RESULTADOS 
REGRESION LINEAL 


4 
4.4 
1.4 
955619 
2.14476 


MxoIimvu>=z 


5 

.503817 
.305343 
.988937 
4.07729 


Mmoiw>”z 
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PROGRAMA 


100 PRINT “AMORTIZACIÓN DECRECIENTE” 
110REM: ENTRADA DE LOS VALORES DE I, N Y L 

120 PRINT 

130 PRINT “INDICAR LOS VALORES DE I,N YL” 

140 INPUT 1,N,L 

150REM; ESCRITURA DE CABECERAS 

160 PRINT 

170 PRINT “ANUAL”, “AMORTIZACIÓN”: “VALOR CONTABLE” 
180 LET V=1 

190REM: PERIODO DE AMORTIZACIÓN DECRECIENTE 

200 FOR J=1 TO L-1 

210 LETA=V*2/N 

220 LETV=V-A 

230 PRINTJ,A,V 

240 NEXT J 

250REM: PERIODO DE AMORTIZACIÓN LINEAL 

260 LET A=V/(N-L+1) 

270 FOR J=L TON 

280 LETV=V-A 

290 PRINTJ,A,V 

300 NEXT J 

310REM: MODIFICACION DE LOS DATOS? 

320 PRINT 

330 PRINT “QUIERE VD. MODIFICAR 1,N OL? 1=Sl, 2=NO0" 
340 INPUT R 

350 IF R=1 THEN 130 

360 IF R=2 THEN 390 

370 PRINT “VALIDO SOLO 10 2. REPETIR” 

380. GO TO 340 

390 END 
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HOJA DE RESULTADOS 
AMORTIZACION DECRECIENTE 


INDICAR LOS VALORES DEI!,N, L 


? 10000, 10, 1 

ANUAL AMORTIZACIÓN VALOR CONTABLE 
1 1000 9000 
2 1000 8000 
3 1000 7000 
0 1000 6000 
5 1000 5000 
6 1000 4000 
7 1000 3000 
8 1000 2000 
9 1000 1000 
10 1000 0 


QUIERE VD. MODIFICAR 1,N OL? 1=SI,2=N0 
21 

INDICAR LOS VALORES DE IN yL 

? 100000, 10, 5 


ANUAL AMORTIZACIÓN VALOR CONTABLE 
1 20000 80000 
2 16000 64000 
3 12800 51200 
4 10240 40960 
5 6826.67 34133.3 
6 6826.67 27306.7 
7 6826.67 20480. 
8 6826.67 13653.3 
9 6826.67 6826.67 
10 6826.67 * -6.10352E-05 


QUIERE VD. MODIFICAR I,N 0L? 1=SI,2=N0Q 
21 

INDICAR LOS VALORES DE I,N yL 

2 10000, 10, 10 


ANUAL AMORTIZACIÓN VALOR CONTABLE 

1 2000 8000 

Z 1600 6400 

3 1280 5120 

4 1024 4096 

5 819.2 3276.8 
6 655.36 2621.44 
7 524.288 2097.15 
8 419.43 1677.72 
9 335.544 1342.18 
10 1342.18 0 


QUIERE VD. MODIFICAR 1,N OL? 1=SI,2=N0 
22 
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Esta fórmula supone que la inversión se hace al final del año 0, y que 
los ingresos se hacen globalmente al final de cada año y que se actuali- 
zan al final de cada año (o al comienzo del año 1). 


c) Presentación de los datos 


Estan contenidos en el programa. Para un proyecto de inversión, se 
deben dar los datos siguientes: 


— Los ingresos anuales considerados, 
— El número 99999 indicando el final de la lista de ingresos, 


— Las diferentes tasas de actualización para las que se quiere conocer 
el valor actualizado, 


— Un número negativo indicando el fin de la lista de tasas de actuali- 
zación. 


Dos series de datos correspondientes a dos proyectos de inversión di- 
ferentes van separadas por un cero. 


La lista de datos debe acabarse con un número diferente de cero. La 
duración de un proyecto se limita a 50 años. 


d) Programa y hoja de resultados (pág. 112) 


VI. CALCULO DE LA TASA DE RENTABILIDAD DE 
UNA INVERSION 


a) Problema 


Se trata de calcular la tasa de rentabilidad de una inversión, es decir, 
la tasa de actualización tal que el valor actualizado de los ingresos co- 
rrespondientes a este proyecto de inversión sea nulo. 


b) Método 


La variación del valor actualizado de los ingresos en función de la 
tasa de actualización se puede representar como sigue: 
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Valor actualizado 


Tasa de actualización 


Tasa de rentabilidad 
de la inversión 


La tasa de rentabilidad de la inversión puede ser calculada gracias a 
un procedimiento representado por el organigrama adjunto. 


V2 = Valor actualizado de 
los ingresos, calculado con 
tasa de actualización R 


Escribir R = tasa de renta- 
-bilidad de la inversión - 
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PROGRAMA 
100 PRINT “VALOR ACTUALIZADO” 
110 PRINT 
120 DIM X (50) 


130REM: LECTURA DE LOS INGRESOS 

140 FOR J=1 TO 50 

150 READ X (J) 

160 IF X (J) =99999 THEN 190 

170 NEXT J 

180REM: DURACION DEL PROYECTO 

190 LET N=J-1 

200 PRINT “DURACION DEL PROYECTO:”;N - 1;“AÑOS” 
210REM: INICIALIZACION 

220 LET V=0 

230REM: LECTURA TASA ACTUALIZACION 

240REM: FINDE LA LISTA DE TASAS DE ACTUALIZACION? 
250 READ 1 

260 IF 1<0 THEN 360 

270RE0: CALCULO DEL VALOR ACTUALIZADO 

280 FOR J=1 TON 

290 LET V=V+X (J)/(1+1)* (J-1) 

300 NEXT J 

310REM: ESCRITURA 

320 PRINT “TASA DE ACTUALIZACION”; | 

330 PRINT “VALOR ACTUALIZADO”, V 

340 GQ TO 220 

350REM: FIN DE LA EJECUCION 

360 READ R 

370 IFR=0 THEN 110 

380 DATA -250, 100, 100, 100, 100, 9999, 0, 0.10, 0.15, 0.20 
390 DATA -0.10,0 

400 DATA -5000, 2560, 3000, 1000, 99999, 0, 0.20, 0.50 
410 DATA -0.10, 1 

420 END 


HOJA DE RESULTADOS 
VALOR ACTUALIZADO 


DURACION DEL PROYECTO : 4 AÑOS 
TASA DE ACTUALIZACION: 0 

VALOR ACTUALIZADO : 150 

TASA DE ACTUALIZACION:.1 

VALOR ACTUALIZADO: 66.9865 
TASA DE ACTUALIZACION: .15 
VALOR ACTUALIZADO: 35.4978 
TASA DE ACTUALIZACION: .2 
VALOR ACTUALIZADO: 8.87346 


DURACION DEL PROYECTO: 3 AÑOS 
TASA DE ACTUALIZACION: 0 

VALOR ACTUALIZADO: 1560 

TASA DE ACTUALIZACION: .2 
VALOR ACTUALIZADO: -20T.63 
TASA DE ACTUALIZACION: .5 

VALOR ACTUALIZADO: -1663.7 


CALCULO DE LA TASA DE RENTABILIDAD DE UNA INVERSION 


PROGRAMA 
100 PRINT “TASA DE RENTABILIDAD DE UNA INVERSION 
110 PRINT 
120 DIM X (50) 


130REM: LECTURA DE INGRESOS” 

140 FOR J=1 TQ 50 

150 READ X (J) 

160 IF X (J) =99999 THEN 190 

170 NEXT J 

180REM: INICIALIZACIÓN 

190 LET N=J-1 

200 LETV1=1 

210 LET R=1 

220 LETP=1 

230REM: CALCULO DE T.R.!. 

240 LETV2=0 

250 LET R=R+P 

260REM: CALCULO DEL VALOR ACTUALIZADO 
270 FOR J=1 TO N 

280 LET V2=V2 +X (J)/(1+R)1* (Y - 1) 
290 NEXT J 

300REM: VALOR ACTUALIZADO = 0? 

310 IF V1I*V2=0 THEN 390 

320REM: VALOR ACTUALIZADO CAMBIA DE SIGNO? 
330 IF V1*V2>0 THEN 360 

340 LET P= -P/2 

350 IF ABS (P) <0.001 THEN 390 

360 LET V1= V2 

370 G0 TQ 240 

380REM: ESCRITURA 

390 PRINT “DURACION DEL PROYECTO”; N - 1 
400 PRINT “TASA DE RENTABILIDAD”; R 
410REM: FIN DE LA LISTA DE DATOS 

420 READR 

430 IF R=0 THEN 110 

440 DATA - 1000, 500, 600, 800, 900, 99999, 0 
450 DATA - 5000, 500, 600, 800, 900, 99999, 1 
460 END 


HOJA DE RESULTADOS 
TASA DE RENTABILIDAD DE UNA INVERSION 


DURACION DEL PROYECTO: 4 
TASA DE RENTABILIDAD: .509766 


DURACION DEL PROYECTO: 4 
TASA DE RENTABILIDAD: .183594 
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c) Presentación de los datos 


Deben estar contenidos en el programa. Basta escribir la lista de in- 


gresos anuales correspondientes a un proyecto de inversión seguidos de 
99999. Dos series de datos deben estar separados por un cero. El último 
99999 de la lista debe ir seguido por un número cualquiera diferente de 


cero, 


d) Programa y hoja de resultados (Pág. 113). 
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PROGRAMA 


100 PRINT “CANTIDAD ECONOMICA DE PEDIDO” 

110 PRINT 

120REM: ENTRADA DE D,S, V, K1 Y K2 

130 PRINT “INDICAR D,S,V, K1 Y k2” 

140 INPUT D,S,V, K1, K2 

150REM: CALCULO Y ESCRITURA DE VALORES QPTIMOS 
160 LET 00 =INT (SOR (2 * D + S/ (K1 + K2 + V))) 

170 LET CO= INT ((00 + (K1 + K2* V)/2+D *S/0Q0) » 100) / 100 
180 PRINT “CANTIDAD ECONOMICA DE PEDIDO”; 00 

190 PRINT “COSTE TOTAL MINIMQ:”, CO 

200REM: CALCULO Y ESCRITURA DE VARIACIONES ALREDEDOR DEL QPTIMO 
210 PRINT 

220 PRINT “VARIACIONES ALREDEDOR DEL QPTIMO” 
230 PRINT “0”, “C” COM”, “C STOCK”, “C TOTAL”, PORC. VARIAC.” 
240 FOR J=-08 TO 1 STEP 0.2 

250 LET 0=00+ INT (00 + J) 

260 LET C1=INT (D* S/Q * 100) / 100 

270 LET C2=INT (0 * (K1 + K2 * V) /2 * 100) / 100 

280 LET P = INT ((C1 + C2 - CO) /CO + 100) 

290 PRINT 0,C1,C2,C1+ C2,P 

300 NEXT J 

310REM: MODIFICACION DE LOS PARAMETROS 

320 PRINT 

330 PRINT “QUIERE VD. MODIFICAR LOS PARAMETROS”? 
340 PRINT“1=SI, 2=N0” 

350 INPUT R 

360 IF R=1 THEN 110 

370 IF R=2 THEN 400 

380 PRINT “VALIDO SQLO 1 0 2. REPETIR” 

390 GQ TO 350 

400 END 


CALCULO DE LOS LOTES ECONOMICOS DE PEDIDO 


VII. CALCULO DE LOS LOTES ECONOMICOS 
DE PEDIDO 


a) Problema 


Este programa debe calcular cuál es la cantidad de pedido óptima 
para un cierto producto guardado en almacén, con el fin de minimizar: 
los costes anuales totales: costes de pedido, más costes de almacena- 
miento. Los costes de pedido y de almacenamiento, el coste total y la 
variación en porcentaje del coste total con relación a su mínimo deben 
calcularse para cantidades de pedido cercanas a la cantidad económica. 


b) Método 


La cantidad económica de pedido Qs y el coste mínimo correspon- 
diente Co se obtienen con la ayuda de las fórmulas: 


a LARA 
“yNKI+K2xV 


Co =./2xX Dx S x(K1 + K2 x V) 


siendo: D  = cantidad anual consumida, 
S  = coste de preparación de un pedido, 
K, = componente del coste de almacenamiento unitario pro- 
porcional a la cantidad, 
K, = componente del coste de almacenamiento unitario pro- 
porcional al valor (expresado en % del valor), 
V = valor unitario de la mercancía almacenada. 


Los diferentes costes se calculan para valores de la cantidad de pedi- 
do variando entre el 20 %: y el 200 % de la cantidad económica como 
un paso del 20 % 


Los costes anuales de pedido y de almacenamiento se obtienen gra- 
cias a las fórmulas: 


D"x:S 
Q 


coste de almacenamiento = . (K1 + K2 x V) 


coste de pedido = 


siendo Q la cantidad de pedido. 
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HOJA DE RESULTADOS 
O CANTIDAD ECONQMICA DE PEDIDO 
INDICAR D,S,V, K1 Y K2 


O 2? 60000, 12, 0.8, 0.04, 0.15 
CANTIDAD ECONOMICA DE PEDIDO: 3000 


COSTE TOTAL MINIMO: 479.99 
O 
VARIACIONES ALREDEDOR DEL OPTIMO 
O 
0 C COM C STOCK C TOTAL PORC VARIAC 
600 1200 47.99 1247.99 160 
O 1199 600.5 95.91 696.41 45 
1799 400.22 143.91 544 13 13 
2399 300.12 191.91 492.03 2 
O 2999 240.08 239.91 479.99 0 
3599 200.05 287.91 487.96 1 
4199 171.46 335.91 507.37 5 
O 4799 150.03 383.11 533.94 11 
5399 133.35 431.91 565.26 17 
5999 120.02 479.91 599.93 24 
O 
QUIERE MODIFICAR LOS PARAMETROS? 
=SI, 2=NO 
O 71 


INDICAR D,S,V, K1 y K2 
O? 80000, 12, 0.8, 0.04, 0.15 
CANTIDAD ECONOMICA DE PEDIDO: 3464 


COSTE TOTAL MINIMO: 554.25 
O 
VARIACIONES ALREDEDOR DEL OPTIMO 
o 0 C COM C STOCK C TOTAL PORC VARIAC 
692 1387.28 55.35 1442.63 160 
1385 693.14 110.79 803.93 45 
O 2078 461.98 166.23 628.21 13 
2771 346.44 221.67 568.11 2 
3463 277:21 277.03 554.24 « 
O 4156 230.99 332.47 563.46 1 
4849 197.97 387.91 585.88 5 
5542 173.22 443.35 616.57 11 
O 6235 153.96 498.79 652.75 17 
6927 138.58 554.15 692.73 24 
O QUIERE VD. MODIFICAR LOS PARAMETROS? 
1=SI, 2=NO 
22 
O 
O 
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c) Presentación de los datos 


Este programa es conversacional. El usuario debe indicar en la ejecu- 
ción los valores de D, S, V, K1,K2. Después de la escritura de resulta- 
dos, se pide si se quiere continuar, cambiando algún valor. 


d) Programa y hoja de resultados (Pág. 114,116) 


VII. CAMINO CRITICO 


a) Problema 


Dada una red PERT cuyos nudos van numerados secuencialmente, 
este programa calcula: 


— El tiempo más pronto o más tarde para el comienzo y fin de cada 
actividad. 


— Los márgenes totales, libres e independientes para cada actividad. 


b) Método 


Las actividades se determinan con los números de los nudos de sus 
extremos. Se clasifican por el programa en orden creciente de su nudo 
de comienzo. Se calculan primero los tiempos “más pronto” para cada 
nudo, después los “más tarde””. Los tiempos más pronto y más tarde de 
cada actividad y los distintos márgenes se calculan cuando se imprimen 


los resultados a partir de los tiempos más pronto y más tarde de los nudos. 


c) Presentación de los datos 
Deben escribirse en el programa. Basta indicar para cada actividad: 


— El número del nudo de comienzo, 
— El número del nudo de final, 
— Duración de la actividad. 


La lista de datos debe acabarse con -1, -1,-1. 


d) Programa y hoja de resultados (Pág. 118, 119) 


La función TAB se empleó en las líneas 710 a 740 para obtener una 
mejor presentación de los resultados. Es una extensión del BASIC que 
se describe en el apéndice 1. 
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PROGRAMA 


100 PRINT “CAMINO CRITICO” 

110 PRINT 

120 DIM 1 (100), J (100), D (100), A (100), T (100), A (100) 
130REM: LECTURA DE DATOS 

140 FOR K1=1 TO 300 

150 READ 1 (K1), J(K1), D (K1) 

160 IF 1 (K1) < O THEN 180 

170 NEXT K1 

180 LET N= K1-1 

190REM: CLASIFICACIÓN DE LAS ACTIVIDADES 
200 FOR K1=1 TO N 

210 LET A (K1) =K1 

220 NEXT K1 

230 FOR K2=1 TO N 

240 LET K3=0 

250 FOR K1=1 TO N-K2 


260 LET A1=A (K1) 

270 LET A2=A (K1 + 1) 

280 IF-1 (A1)< 1(A2) THEN 340 
290 IF-1 (A1)> 1 (A2) THEN 310 
300 IF J(A1<J(A2) THEN 340 
310 LET K3= K3+1 

320 LET A (K1) = A2 

330 LET A (K1+1)=A1 

340 NEXT K1 

350 IF K3=0 THEN 380 

360 NEXT K2 


370REM: INICIALIZACION 

380F0R K1=1 TO N 

390 LET T(K1) =0 

400  LET R(K1)=0 

410 NEXT K1 

420REM: CALCULO DELOS TIEMPOS MAS PRONTO PARA LOS NUDOS 
430 FOR K1=1 TO N 

440 — LET 11 =1 (A (K1)) 

450 LET J1 =J (A (K1)) 

460 LET M=T (11) +0D (A (K1)) 

470 IF T (41) =0 THEN 490 

480 IF T (41) >= M THEN 500 

490 —LETT(J1)=M 

500 NEXT K1 

510REM: CALCULO DE LOS TIEMPOS MAS TARDE PARA LOS NUDOS 
520 LET R (J(A (N))) = T (J (A (N)) 

530 FOR K1 =N TO 1 STEP - 1 

540 LET 11 =1(A (K1)) 

550  '"LET M=R(J(A (K1)) - D (A (K1)) 
560 IF T (11) =0 THEN 580 

570 IFR (11) <=M THEN 590 

580 LET R(I1) =M 


590 NEXT K1 

600REM: ESCRITURA 

610 PRINT 

620 PRINT ” ACTIVIDAD COMIENZO > 
630 PRINT ” FIN MARGENES ” 
640 PRINT “1 J TI MAS TARDE”, 


650 PRINT ” MAS TARDE PRONTO LIBRE — INDEP” 
660 PRINT 

670 FOR K1=1 TO N 

680 LET A1 =A (K1) 

690 LET 11 =1(A1) 

700 LET J1 =J (A1) 


CAMINO CRITICO 


(CONT.) 

710 PRINT 11; TAB (3);J1;TAB (7); D (A1); TAB (15); 
720  PRINT T (11); TAB (22); R (J1) - D (A1); TAB (30); 
730 PRINT T (11) +0D(A1); TAB (37); R (J1); TAB (45); 
740 — PRINTR (J1)-T (11) -D (A1);TAB (52); T (J1) - T (11) - D (A1); TAB (59); 
750 

760 PRINT T(J1)-R(11)-D(A1);” ”; 

770 IFR (41) -T (11) <> D(A1) THEN 800 

780  PRINT “ACT. CRIT.” 

700  G0 TQ 810 

800  PRINT 

810 NEXT K1 

820 DATA 2,3, 10,3,4,16,4,5,8,6,7,8 

830 DATA 1,2,8,2,4,2,7,8,2,5,7,3 

840 DATA 4,6, 12,3,6,7,3,5,4,-1, -1, -1 

850 END 


HOJA DE RESULTADOS 


CAMINO CRITICO 


ACTIVIDAD “COMIENZO FIN MARGENES 
| J TU MAS TARDE MAS TARDE PRONTO LIBRE 
1.2 8 0 0 8 8 0 0 
2 3 10 8 8 18 18 0 0 
2. 4 2 8 32 10 34 24 24 
3 4 16 18 18 34 34 0 0 
3 5 4 18 47 22 51 29 20 
A - 18 39 25 46 21 21 
4 5 8 34 43 42 51 9 0 
4 6 12 34 34 46 46 0 0 
5 7 3 42 51 45 54 9 9 
6 7 8 46 46 54 54 0 0 
Y > ER 54 54 56 56 0 0 


INDEP 


0 ACT. CRIT. 
0 act. CRIT. 
24 

0 ACT. CRIT. 
20 

21 

0 

O ACT. CRIT. 
0 

O ACT. CRIT. 
0D ACT. CRIT. 
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Extensión del BASIC 


Después que el lenguaje BASIC fue desarrollado en el Dartmouth Co- 
llege, ha sido ampliado con nuevas posibilidades por diferentes cons- 
tructores. Aquí se presentan las principales. Se aconseja, sin embargo, 
verificar los detalles de su uso en el manual BASIC del servicio de Tiem- 
po Compartido que se emplee. 


a) Operación con las matrices 
Las tablas pueden emplearse para representar matrices. 


Ciertas instrucciones se han introducido para operar globalmente con 
matrices; todas ellas comienzan con MAT. 


Lectura 


100 MAT READ A (I, J) lee una matriz de l línea y J columnas. An- 
tes se deben haber definido 1 y J y la tabla A debe haberse declarado 
con dimensiones iguales o superiores a 1, J. Los datos se deben dar en el 
orden 


AD A IAS O A Dc AED) 


Escritura 
100 MAT PRINT X imprime la matriz X por líneas. 


Cálculos 


Si A, B y Cson matrices, se pueden emplear las instrucciones siguientes: 


120 


EXTENSION DEL BASIC 


100 MATA=B+C 

100 MATA=B-C 

100 MATA=B*C 

100 MAT A = INV (B) (inversión) 

100 MAT A = TRN (B) (transposición) 

100 MAT A = ZER (1,3) (la matriz A debe tener las dimensiones I, J, todos 


sus elementos toman el valor 0) 

100 MAT A = CON (1,J) (la matriz A debe tener las dimensiones l, J, todos 
sus elementos toman el valor 1) 

100 MAT A =IDN (LI) (la matriz A (I, D) se transforma en la matriz unidad). 


Una matriz puede también multiplicarse por una expresión aritméti- 
ca. Por ejemplo: 


100 MAT A=(K? 2-X + Y) x* Bsiendo A y B matrices y K, Y y X 
variables no indexadas. 


b) Variables con contenido alfanumérico 


Las variables usadas en la primera versión del BASIC no podían to- 
mar más que valores numéricos. Una extensión del BASIC permite ma- 
nipular variables que contienen tiras de caracteres (letras, cifras y otros). 
Estas variables se denominan con una letra seguida del signo $ (dólar), y 
se llaman variables con contenido alfanumérico. 


AS, JS, WS... 
Los ejemplos de instrucciones permitidas son: 


. 100 LET K$ = “EXTENSION BASIC” 


La variable K$ contendrá: “EXTENSIQ N BASIC”. El número máxi- 
mo de caracteres depende del sistema empleado y puede variar de 15 a72. 


o 110 LET I$ = K$ 


La variable I$ contendrá la misma tira de caracteres que K$: EXTEN- 
SION BASIC. 


o 120 PRINT I$ 
Se imprime el contenido de I$. 


o 100 READ X,B$,Y,C$,K$ 
520 DATA 3,PEREZ, 7, “3, BIG STR.”, 
“NY - 10011” 
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Las variables con contenido alfanumérico pueden leerse como las 
otras. B$, C$ y K$ contendrán respectivamente: PEREZ; 3, BIG STR.; 
NY-10011. 


Los datos alfanuméricos deben ir entre comillas cuando: 


— Contengan caracteres que tienen un sentido especial en BASIC 
(signos de puntuación, signos operativos, paréntesis...). 


— El primer carácter es una cifra. 


Por ejemplo en 950 DATA “3, BIG STR.”, MIAMI no es necesario 
poner MIAMI entre comillas, por no tener más que letras. Por el contra- 
rio 3, BIG STR. al comenzar por una cifra y tener una coma, debe ir en- 
tre comillas. 


a 100 INPUT Bf$, K, S$ 


permite leer variables alfanuméricas tecleadas por el usuario durante la 
ejecución. 


2 100 IF L$¿ = “DURAN” THEN 300 
110 IF “MARZO” < = S$4 THEN 90 
120 IF Yf$ > Tf THEN 340 


En estas pruebas, el signo > quiere decir: “después en el orden alfa- 
bético” si las variables no contienen más que caracteres alfabéticos. Si 
ellas contienen también caracteres numéricos, es necesario usar códi- 
gos para hacer la comparación, 


Cuando se comparan dos variables de longitudes diferentes, la varia- 
ble más corta se compata con la parte correspondiente de la otra. 


Se pueden emplear listas con contenido alfanumérico debiéndose de- 
clarar: 


100 DIM B (20,30), C$ (12), X$ (20), A (50) 


Las tablas con contenido alfanumérico no se aceptan en general. 


c) Instrucción LET 


Un mismo valor puede asignarse a varias variables de la manera si- 
guiente: 


100 LET D=E=F =T(I) = SQR (B]2-4+A+*C) 
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d) Instrucción DEF 


Es posible definir una función teniendo más de un argumento como 
en el ejemplo siguiente: 


100 DEF FND(A,B,C) = SQR (B72-— 4x* AC) 


e) Instrucción ON 


Permite hacer pasar el control a diferentes instrucciones según el va- 
lor de una variable o expresión, sustituyendo así una secuencia de ins- 
trucciones IF. Por ejemplo: 


100 GN A+B G4Y TY 340, 210, 260 


El control pasa a las líneas 340, 210 ó 260 cuando el mayor entero 
inferior a A + B es respectivamente igual a 1,2, 3. Si este entero es in- 
“erior a 1 ó superior a 3, se imprime un mensaje de error. 


No hay límite en el número de números de líneas que siguen al GQ TO. 


f) Función TAB 


Se obtiene una mejor presentación de los resultados empleando fun- 
ciones TAB en una instrucción PRINT, como en el ejemplo siguiente: 


100 PRINT X(I); TAB (10); Y(1); TAB (20); Z(1) 
Las columnas de la hoja de resultados están numeradas de O a 74, el 


valor de X (I) comenzará a imprimirse en la columna 0, el de Y (I) en la 
columna 10 y el de Z (I) en la columna 20. 
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A. Lenguaje de comandos de los sistemas 
HP 2000, B,C y F 


a) Identificación 

Antes de poner usar el sistema, el usuario debe “identificarse” de 
la manera siguiente (los caracteres escritos por el ordenador van sub- 
rayados): 


45 
PLEASE LYG IN 
HELLO0-A895, EX2 
READY 


El usuario comienza por teclear un número cualquiera para indicar 
que quiere usar el sistema. El ordenador responde pidiendo al usuario 
que se identifique (“PLEASE LOG IN”). El usuario se identifica te- 
cleando “HELLO-A895, EX2”, siendo A895 el número de identifica- 
ción y EX2 su clave. El sistema verifica que este número y clave son vá- 
lidos y si lo son contesta al usuario que está preparado a recibir sus 
mensajes (READY). 


b) Entrada del programa 


Después que el ordenador haya escrito READY , el usuario puede es- 
cribir su programa directamente, línea a línea. Es posible corregir un 
error en una cierta línea volviendo a teclear la misma línea con el mis- 
mo número de línea, de la manera siguiente: 
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270 NEXT I 

280 INPOT A,B “< error 
290 LETC=As+.B 

300 LETD=AB  +< error 


280 INPUT AB 
300 LET D=A/B 


Las instrucciones puestas en memoria son en este caso: 


270 NEXT I 

280 INPUT A,B 
29 LETC=A*B 
300 LET D = A/B 


Las primeras líneas 280 y 300 tecleadas por el usuario son reemplaza- 
das por las líneas que tienen los mismos números y tecleadas posterior- 
mente. 


c) Salvar 


El usuario puede conservar en memoria auxiliar un programa, que 
acaba de escribir o modificar, tecleando: 


NAME - PROG 1 
SAVE 


La primera línea permite atribuir un nombre al programa, lo que es 
necesario para poderlo invocar después. 


La segunda línea da orden al ordenador de conservar el programa 
PRQOG1. 


d) Utilización de un programa guardado en memoria auxiliar 


Un programa salvado con el comando SAVE debe ser llamado antes 
de poderlo usar (ejecutar, modificar, listar...). El programa PROG1 se le 
llama tecleando GET-PROQOG1. Luego puede usarse como si el usuario lo 
terminara de teclear. En particular, se puede ejecutar o modificar varias 
veces sin que sea necesario llamarle de nuevo cada vez. 
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e) Ejecución 


Cuando el programa ha sido tecleado por el usuario, o llamado con el 
comando GET-, si estaba salvado de antes, se puede ejecutar con el co- 
mando RUN. Los resultados (o mensajes de error) se imprimen por el 
sistema. El sistema indica que la ejecución se acaba tecleando DONE: 


965 

PLEASE LYG_ IN 
HELLO-A895, EX2 
READY 
GET-PROYG1 


RUN 
9 


8,15.7,3.632 


| Resultados para los datos anteriores 


DONE 


RUN 
9 


8,15.7,3.632 
| Resultados para los datos anteriores 
DONE 


f) Borrado 


Si el programa PROG1 guardado con el comando SAVE ya no es útil 
en memoria auxiliar, puede ser borrado con el comando KILL-PRQG1. 


g) Modificaciones 


Es posible modificar un programa salvado y llamado con el comando 
GET- de la misma manera que un programa recién entrado por el tecla- 
do. Basta volver a teclear las líneas erróneas con su mismo número de 
línea pero corregidas y si es una línea a añadir con un número interme- 
dio correspondiente a la posición de la línea en el programa. 


En el caso de un programa antiguo y salvado, esto no modifica más 
que una copia del programa, quedando el programa original en memoria 
y protegido de toda modificación. Para modificar la versión del progra- 
ma guardada en memoria (para poder llamar posteriormente la versión 
modificada del programa y no la versión original), es necesario borrar la 
versión anterior y luego salvar la nueva versión de la manera siguiente. 
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GET-PROG1 

100 INPUT X Y 

367 LET D=(X + Y)»2 
KILL-PROG1 
SAVE 


| modificaciones 


borrado de la antigua versión de PROG] 
salvar la nueva versión de PROG1 


Es necesario borrar la antigua versión de PROG1, antes de salvar la 
nueva, ya que no puede haber en memoria dos programas con el mismo 
nombre. Si se quieren conservar las dos versiones de PROG1, se puede 
por ejemplo dar otro nombre a la nueva versión. En este caso PROG1 se 
modifica, la nueva versión se le da otro nombre y se salva de la manera 
siguiente: 


GET-PROG1 

100 INPUT X.Y 

167. LETD= (4 Y/142 
NAME-PROG2 

SAVE 


| modificaciones 


h) Listado 


El listado completo de un programa se obtiene tecleando LIST. A 
veces es preferible listar sólo una parte del programa. Esto se obtiene 
tecleando por ejemplo LIST-60, 130 que lista las líneas del programa de 
60 a 130 ambas inclusive. 


i) Parada 


Para acabar el funcionamiento del terminal, basta teclear BYE. El sis- 
tema indica el tiempo transcurrido desde que el usuario se identificó en 
el teletipo. 
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B. Resumen de Basic 


RESUMEN DE LAS INSTRUCCIONES BASIC 


Instrucciones 


READ 
DATA 
INPUT 

LET 

GQ TQ 
PRINT 

REM 

sTQOP 

END 

IF... THEN... 
FQR...=...TQ ...STEP... 
NEXT 

DEF 

GQ SUB 
RETURN 
DIM 


Extensión BASIC 


MAT READ 
MAT PRINT 
MAT 
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Ejemplos 


READ K, A(4), L 

DATA 0.54 432,153.5 

INPUT A,B,C(I*L), Z(5) 

LET A=(K*12) f L1 + B(4) 

GQ TO 250 

PRINT “VALOR ACTUALIZADO:”; V 
REM — — FACTURACIÓN 

STOP 

END 

IF K > 2 THEN 170 

FOR 1=A +BT0Q Af2 STEP 4 
NEXT 1 

DEF FNA(X)=0.01 * INT(X * 100 + 0.5) 
GQ SUB 250 

RETURN 

DIM A(15,20), B(5) 


MAT READ A(1,J), B(4,3), C 
MAT PRINT XZ 
MATA=B*C 
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ON...GQ TO... ON X12 GQ TQ 125,270,270 123 
LET LET A = X(4)=B2=Z * T(4)t2 1Z2 
DEF DEF FND(A,B,C) = SOR(B?2 —4*S*C) 123 
RESUMEN DE FUNCIONES BASIC 
Funciones Ejemplos Páginas 
SIN LET B2 =C * SIN(L1) 74 
COS LET Q 1 =CQS(3.14 * K/180) 74 
TAN IF TAN(X) > 0.30 THEN 325 74 
ATN DEF FNA(Y) =0.5 * ATN(Y) 74 
EXP LET K2 = EXP(A + B/2) 74 
ABS IF ABS(J) > 1 THEN 90 74 
SQR DEF FN1(M)= SQR(M/3) * K 74 
LOG PRINT “LOG DE”; L; *=”; LOG(L) 74 
INT IF A3 = INT (A3) THEN 150 74 
SNG LET P =P/2 * SNG(V1 * V2) 74 
RND LET A1 = INT (RND(L) + 0.5) 74 
Extensión BASIC 
TAB PRINT A(J); TAB(12); B(J); TABC0); A)/B() 123 
INV MAT A = INV(B) 121 
TRN MAT A = TRN(B) 121 
ZER MAT A = ZER(9,15) 121 
CON MAT A =CQN(12,14) 121 
IDN MAT A = IDX( 10,10) 121 
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Otros libros sobre INFORMATICA publicados por 
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GOSLING.— Códigos para ordenadores y microprocesadores. 80 páginas. 

KASATKIN. — El ABC de la Cibernética. 2* edición. 152 páginas. 
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edición. 452 páginas. 
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ANGULO.- Electrónica digital moderna. 4* edición. 680 páginas. 


ANGULO.-— Electrónica fundamental Teoría y práctica. Desde la válvula hasta el 
circuito integrado. 6 tomos. 

T/6 — Teoría: Circuitos integrados digitales y analógicos. Hacia el microproce- 
sador. Práctica: Montajes y experimentación con circuitos integrados ló- 
gicos y Operacionales. 2? edicición. 432 páginas. 

ANGULO. -— Memorias de burbujas magnéticas. 280 páginas. 


ANGULO.-— Microprocesadores. Arquitectura, programación y desarrollo de siste- 
mas. 28 edición. 628 páginas. 


ANGULO.-— Microprocesadores. Curso sobre aplicaciones en sistemas industriales. 
32 edición. 576 páginas. 

ANGULO.-— Microprocesadores. Fundamentos, diseño y aplicaciones en la industria 
y en los microprocesadores. 3* edición. 764 páginas. 

ANGULO .-— Microprocesadores. Diseño práctico de sistemas. 424 páginas. 

GARLAND. — Diseño de sistemas microprocesadores. 192 páginas. 

HALSALL y LISTER.— Fundamentos de microprocesadores. 220 páginas. 

ROBIN y MAURIN.— Interconexión de microprocesadores. 192 páginas. 

SHELLEY .— Microelectrónica. 120 páginas. 

WEBER .— Introducción a los métodos de la técnica digital. 196 páginas. 


Lenguajes 

CHECROUN.-— BASIC. Programación de microordenadores. 2* edición. 112 páginas. 
GALAN PASCUAL. -— Programación con el lenguaje COBOL. 328 páginas. 

ROSSI.— BASIC. Curso acelerado. 2* edición. 224 páginas. 


SANCHIS LLORCA y MORALES LOZANO.-— Programación con el lenguaje PAS- 
CAL. 4* edición. 368 páginas. 


Aplicaciones e informática profesional 


ANGULO.-— Prácticas de microelectrónica y microinformática. 260 páginas. 

BANKS.— Microordenadores. ¿Cómo funcionan? ¿Para qué sirven? Introducción. 
Software. Aplicaciones en industria y comercio. 

BELLIDO.— ZX81. Curso de programación BASIC. 22 edición. 128 páginas. 

BELLIDO.— Cómo programar su Spectrum. 2* edición. 128 páginas. 

BELLIDO.-— Cómo usar los colores y los gráficos en el Spectrum. 96 páginas. 

ESCUDERO.-— (Centro de Investigación UAM-IBM).— Reconocimiento de patro- 
nes. Fundamentos teóricos, algorítmo y aplicaciones de la moderna técnica de- 
nominada “Pattern Recognition”. 690 páginas. 

GAUTHIER y PONTO.-— Diseño de programas para sistemas. 2? edición. 290 págs. 

GILDERSLEEVE.— Las tablas de decisión y su aplicación al proceso de datos. En- 
señanza programada. 208 páginas. 

HARTMAN, MATTHES y PROEME.— Manual de los sistemas de información (AR- 
DI). Análisis. Requisitos y su determinación. Diseño y desarrollo. Implantación 
y evaluación. 2 vols. 
T/1 — Dirección del Proyecto. Estudio de factibilidad: diseño y análisis del sis- 

tema. Desarrollo del sistema. Puesta en marcha del sistema y evaluación. 
52 edición. 382 páginas. 

T/2 — Técnicas y estándares. 5? edición. 384 páginas. 

PANNELL, JACKSON y LUCAS.-— El microordenador en la pequeña empresa. 


BASIC 
Introducción a la Programación 


El ordenador ya no es una herramienta reservada a los 
especialistas. Un gran número de investigadores, funcionarios, 
ejecutivos y estudiantes saben cómo funciona un ordenador 

y lo que éste puede o no hacer. 


El BASIC es un lenguaje de programación relativamente 
nuevo que ha tenido un gran éxito entre los usuarios no 
especialistas en informática. El BASIC es muy fácil de 
aprender y, por este mismo motivo, muy fácil de usar. 
Es el lenguaje ideal para realizar programas de tamaño y 
complejidad medios. 


Este libro está destinado a los que desean escribir sus propios 
programas, así como a todos los que desean conocer cómo 
es posible dar instrucciones a un ordenador, y su texto está 
estructurado en cuatro partes: una introducción a la 

- programación; la definición del lenguaje BASIC; cómo 
realizar un programa en BASIC; y programas útiles. 
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